Skrip untuk menampilkan gambar ke dalam form VB

lihat juga skripnya....

Dim NewElement As Integer

Private Sub Form_Click()
Load Image1(NewElement)
Image1(NewElement).Visible = True
'Image1(NewElement).Top = Image1(NewElement - 1).Top
'Image1(NewElement).Left = Image1(NewElement - 1).Left + 495
'NewElement = NewElement + 1


'==================================================
'For Random Placement use this code:
Image1(NewElement).Top = CInt(Form1.Height * Rnd)
Image1(NewElement).Left = CInt(Form1.Width * Rnd)
NewElement = NewElement + 1
'==================================================
'You can also use textboxes, command buttons.. everything"

End Sub

Private Sub Form_Load()
NewElement = 1
End Sub


source : http://www.planet-source-code.com/vb/