Membuat Gambar Berjalan dengan Vb 6.0

Buatlah form seperti di bawah ini:

Atur property seperti di bawah:

kontrol	property	setting
image	picture Strecth	Pilih gambar yg di inginkan True
Command1	name caption	Command1 mulai
Command2	name caption	Command2 stop
Command3	name caption	Command3 keluar
timer1	Enabled Interval	False 100

Ketiklah listing di bawah ini:

Private Sub Command1_Click()

Timer1.Enabled = True 'mengaktifkan Timer'

End Sub

Private Sub Command2_Click()

Timer1.Enabled = False 'mengaktifkan Timer'

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Form_Load()

Timer1.Interval = "1"

End Sub

Private Sub Timer1_Timer()

Image1.Left = Image1.Left - 20

If Image1.Left < -3000 Then                                                                            

Image1.Left = 5000                                                                                            

End If

End Sub

Program ini dibuat oleh Heri Afrizal di bireuen

http://hery-pc.blogspot.com