[Amin_Mansouri]

کد:

Private Sub Form_Load()
Me.Caption = "Change Shape"
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
ChangeShape (Rnd * 5)
End Sub

Public Function ChangeShape(Vaule As Integer)
Shape1.Shape = (Vaule)
End Function