Dim sngdrawwidth As Single '模块级变量，保存线条宽度
Private Sub Command1_Click()'刷新恢复
Form3.Cls
End Sub
Private Sub form_mousedown(button As Integer, shift As Integer, x As Single, y As Single)
If button = 1 Then '如果按下左键
CurrentX = x: CurrentY = y
sngdrawwidth = 1
DrawWidth = sngdrawwidth
End If
End Sub
Private Sub form_mousemove(button As Integer, shift As Integer, x As Single, y As Single)
Dim lngdrawcolor As Long
If button = 1 Then '使用不同颜色
If shift = 1 Then '同时按下shift键，颜色为红色
ingdrawcolor = RGB(255, 0, 0)
ElseIf shift = 2 Then '同时按下ctrl键，颜色为vbgreen
ingdrawcolor = vbGreen
ElseIf shift = 4 Then
ingdrawcolor = &HFF000
End If
sngdrawwidth = sngdrawwidth + 0.1 '加宽线条
DrawWidth = sngdrawwidth
Line -(x, y), ingdrawcolor '画线
End If
End Sub
