[mamali]

سلام دوستان.یه برنامه میخواستم که با استفاده از timer و shape نوشته شده باشه و حداقل 10 خط داشته باشه
ساده هم باشه:heart:

[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