در برنامه زیر شبیه سازی به زمین افتادن یک توپ را می توانید ببینید

کافی است در فرمتون یک آبجکت Shape1 و یک دکمه ایجاد کنید و کدهای زبر را به قسمت General کپی کنید

كد:

Private Sub Command1_Click()
h = Form1.Height
For i = 1 To 1800
For j = 1 To 200000
Next
r = i * 3.14 / 180
t = h - Abs(h * Sin(r) * Exp(-i / 800)) - 1200
Shape1.Top = t
Shape1.Left = i * 2
Form1.PSet (i * 2, t)
Next
End Sub

Private Sub Form_Load()
Shape1.Shape = 3
Shape1.BackColor = vbYellow
Shape1.BackStyle = 1
End Sub