Design FORM

General

Dim a As Integer
Dim b As String
 
Private Sub Form_Load()
a = 0
b = "Efek Text Berjalan Perkarakter"
End Sub

Private Sub Timer1_Timer()
‘text berjalan perkarakter
a = a + 1
Label1.Caption = Left(b, a)
If a = Len(b) Then
    a = 1
End If

‘text berkedip
If Label2.Visible = True Then
    Label2.Visible = False
Else
    Label2.Visible = True
End If
End Sub

1 komentar:

Arum Anggraeni mengatakan...

Jangan lupa Interval Timer1-nya di ganti 100..

Posting Komentar