该程序只有第一个按钮能用,其它几个不能运行,我分析可能是select case分支未能正常运行,为什么,请高手指教.
Private Sub Command1_Click(Index As Integer)
Picture1.Cls
Picture1.FillStyle = 6
Select Case Index
Case 0
Picture1.Print "画直线"
Picture1.Line (2, 2)-(7, 7)
Case 1
Picture1.Print "画矩形"
Picture1.Line (2, 2)-(7, 7), , BF
Case 2
Picture1.Print "画圆"
Picture1.Circle (4.5, 4.5), 3.5, , , , 1.4
Case Else
End
End Select
End Sub

Private Sub Form_Load()
Picture1.Scale (0, 0)-(10, 10)
End Sub

可以，没问题。
Case Else
End
可以去掉，没意义。