KODE VB 6.0 MEMBUAT ANIMASI ABOUT

Membuat animasi about dengan text berjalan ternyata cukup mudah. Anda tinggal siapkan PictureBox, Image yang ditempatkan di dalam PictureBox dan 1 timer terus dilanjutkan dengan menuliskan kode sebagai berikut.

---------------------------------------------------------------------------------------------------------------------

Private Sub Form_Load()
Timer1.Enabled = True
End Sub

----------------------------------------------------------------------------------------------------------------------
Private Sub Timer1_Timer()
'MENJALANKAN GAMBAR
If imgabout.Top > (Picture1.ScaleHeight - imgabout.Height - 3000) Then
imgabout.Top = imgabout.Top - 5
Else
For i = 1 To 450000
Next i
imgabout.Top = Picture1.ScaleHeight
End If
End Sub

Free Template Blogger collection template Hot Deals SEO