Kamis, 03 September 2009

MENAMPILKAN GAMBAR KE DALAM FORM

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+1End subPrivate Sub Form _Load( )NewElement=1
End Sub

Tidak ada komentar:

Posting Komentar