Membuat text berjalan

//di taruh di main
Dim strTemp, LenTemp, n

//isi pada timer
Private Sub Timer1_Timer()
LenTemp = Len(strTemp)
    Dim Form As String
    LenTemp = Len(strTemp)
    Label1 = Left(strTemp, n) + "_"
    n = n + 1
    If n > LenTemp Then
        n = 1
    End If
End Sub

//isi pada sub form load
strTemp = Label1
    n = 1

pada properties timer,rubah interval menjadi 500

share this article to: Facebook Twitter Google+ Linkedin Technorati Digg

Posted by Unknown, Published at 08.44 and have 1 komentar