Ini merupakan salah satu contoh program..dimana kita dapat menduplikasikan gambar .......
source code :
source code :
Private Sub Form_Load()
Dim i As Integer
For i = 1 To 10
Load Image1(i + 1)
Image1(i + 1).Visible = True
Next i
Randomize
End Sub
Private Sub Timer1_Timer()
Dim i As Integer
For i = 1 To 11
Image1(i).Move Image1(i).Left + ScaleWidth * (Rnd - 0.5) / 30, Image1(i).Top + ScaleHeight * (Rnd - 0.5) / 30
Next
End Sub
kalian bisa download contoh programnya disini
Related Post
Visual Basic
- GAME CARD WITH VISUAL BASIC 6
- Using ADO and the ListView control Visual basic 6.0
- Program pengacak no undian pada VB 6
- Efek Tetesan Air Diatas Monitor dengan visual basic
- Explode form visual basic
- SIMULATION DEACTIVE BOOM VER.1
- Simulasi animasi gerbang otomatis dengan visual basic
- MENAMPILKAN PILIHAN GAMBAR DENGAN VISUAL BASIC
- Animasi Frame image dengan visual basic 6
- Game uji kemampuan otak dengan visual basic 6.0
