Kamis, 08 Oktober 2009

MENAMPILKAN GAMBAR KE DALAM FORM

Project 1 . Form 1(code)

Dim NewElement As Integer
Private sub Form (click)
Load image1(NewElement)
Image 1(NewElement).Visible=True
Image 1(NewElement).Top=Cint (Form 1.Height*Rnd)
Image 1(NewElement).Left=Cint (Form 1.Width*Rnd)
NewElement =NewElement+1
End sub




Private Sub Form _Load( )
NewElement=1
End Sub


Tidak ada komentar:

Posting Komentar