Rabu, 02 September 2009

MENAMPILKAN GAMBAR KE DALAM FORM

MENAMPILKAN GAMBAR KE DALAM FORM
Project 1 . Form 1(code)Dim NewElement As IntegerPrivate sub Form (click)Load image1(NewElement)Image 1(NewElement).Visible=TrueImage 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=1End Sub

Tidak ada komentar:

Posting Komentar