Attribute VB_Name = "Module1"
Global h As Integer 'Postavlja h promenljivu
Global v As Integer 'Postavlja v promenljivu
Function SetB()
h = 100 + Int(Rnd * 200) + 1 'Slucajno biranje y koordinata
v = 100 + Int(Rnd * 200) + 1 'Slucajno biranje x koordinata
Randomize 'Bira brojeve
End Function

Function StarT()
mf.lopta.Top = mf.lopta.Top + v 'X polozaj lopte
mf.lopta.Left = mf.lopta.Left + h 'Y polozaj lopte
If mf.lopta.Top < 0 Then 'Ako loptica hoce da izadje iz gornje granice forme...
mf.lopta.Top = 0 '...Vrati je na pocetnu x koordinatu...
v = -v '...I okrene je u drugom pravcu
End If 'Kraj upitnika
If mf.lopta.Top > 4000 Then  'Ako loptica hoce da izadje iz donje granice forme...
mf.lopta.Top = 4000  '...Vrati je na pocetnu x koordinatu...
v = -v '...I okrene je u drugom pravcu
End If 'Kraj upitnika
If mf.lopta.Left < 0 Then 'Ako loptica hoce da izadje sa leve granice forme...
mf.lopta.Left = 0 'Vrati je na pocetnu y koordinatu...
h = -h '...I okrene je u drugom smeru
End If 'Kraj upitnika
If mf.lopta.Left + mf.lopta.Width > mf.Width Then 'Ako loptica hoce da izadje sa desne granice forme...
mf.lopta.Left = mf.Width - mf.lopta.Width '...Vrati je na pocetnu y koordinatu...
h = -h '...I okrene je u drugom pravcu
End If 'Kraj upitnika

End Function