<---A 7 1 P--->

Caranya Buat Project n Tambahkan timer diset dengan nama Timer1 dan interval 100 Form dikasih nama Form1 masukkan kode Dim Pos As Integer, StartPos As Integer, Lengh As Integer, iTeks As Integer
Dim MyTeks As String
Private Sub Form_Load()
iTeks = 1
End Sub
Private Sub Timer1_Timer()
Pos = Pos + 1
If iTeks = 1 Then
MyTeks = “Ini Contoh Caption Status Bar Berjalan Pada VB”
End If
StartPos = Len(MyTeks)
Lengh = StartPos – Pos
If Lengh = 0 Then
If iTeks = 1 Then
iTeks = 2
End If
Pos = 0 – StartPos
End If
Form1.Caption = Right(MyTeks, Lengh)
End Sub


***....Selamat Berkreasi...***