在名称为form1的窗体上添加一个名称为shape1的形状控件，通过设置参数使其形状为圆形

添加3个控件后，复制以下代码： Option Explicit Private Sub Form_Load() Label1.Caption = "参数：" Label1.AutoSize = True Text1.MaxLength = 5 Text1.Text = "圆形" End Sub Private Sub Text1_Change() Select Case Text1.Text Case "矩形"