Private Sub Form_Load() ‘程序运行（窗体打开时）时就运行 With Shape1 .Shape = 3 ’画一个圆 .FillStyle = 0 ‘ 实心圆 .Visible = False '隐藏 End WithEnd Sub
