Label, Gambar, Comand Naik Turun

label, gambar, comand naik turun (animasi lah..)

kita kasi contoh label naik turun

pertama buat time dgn interval 10 dan label (nama=Label1)

kemudian pada time isi code :
'-------------------------------------------
Private Sub Timer1_Timer()
Static Atas As Boolean
Label1.Top = Label1.Top + IIf(Atas, -50, 50)
If Label1.Top < 0 Then
Atas = False
ElseIf Label1.Top > Me.Height - Label1.Height - 300 Then
Atas = True
End If
End Sub
'-------------------------------------------------