Saturday, 29 October 2011

Animasi Kelap Kelip

Tambahkan gambar dengan nama Image2 dan Timer dengan interval di propertis =100
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:

 
Safwan Kasma