Question

vb shape控件

请问有一个命令按钮属性是改变形状，添加一个shape控件，怎么让这个控件在圆和方也就是0.和3来回转换变型呢..求解 谢谢。

Answer 1

Option Explicit
Dim flag As Boolean
Private Sub Form_Load()
Timer1.Interval = 200
End Sub

Private Sub Timer1_Timer()
If flag Then
Shape1.Shape = 3
Else
Shape1.Shape = 1
End If
flag = Not flag
End Sub