duplikat gambar dengan visual basic

Ini merupakan salah satu contoh program..dimana kita dapat menduplikasikan gambar .......
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