LB = nama label
code :
pada form load = codeX
------------------------------
Private Sub Form_Load()
LB = 0
End Sub
------------------------------
Private Sub Timer1_Timer()
Timer1.Enabled = False
If LB = 0 Then
Image2.Visible = True
LB = LB + 1
Timer1.Enabled = True
ElseIf LB = 1 Then
Image2.Visible = False
LB = LB + 1
Timer1.Enabled = True
LB = 0
End If
End Sub
------------------------------
Selamat mencoba
0 comments:
Posting Komentar