[原创]这个程序为何不能运行
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
