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