buat lah :
1 label dengan caption "hello"
1 timer
4 shape (cma mempercntik)
copas script berikut pada tempat script !!
Dim p As Long
Dim warna As Long Private Sub Form_Load()
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
p = p + 1
warna = warna + 5000
If p = 5 Then
Shape2.Visible = False
Shape1.Visible = False
ElseIf p = 8 Then
Shape3.Visible = False
Shape4.Visible = False
ElseIf p = 12 Then
Shape2.Visible = True
Shape1.Visible = True
ElseIf p = 20 Then
Shape3.Visible = True
Shape4.Visible = True
End If
If p = 20 Then p = 0
Form1.Caption = Left(txt, p)
Label1.ForeColor = warna
End Sub
