Dalam new element As Integer

Private Sub From_Click()
load image 1 (NewelEment)
Image 1 (NewElement). Visible= True
Image 1 (NewElement). Top =Cint (From1.Height=Rnd)
ImaGE 1 (NewElement). left= - (From1 Width= Rnd)
NewElement= NewElement +1
End Sub
Private sub From_Load()
NewElement=1
End Sub