DIM SNGDRAWPIDTH AS SINGLE 'Module Class Variable, Save Line Width
Private submmand1_click () 'Refresh Recovery Form3.CLS
End Sub
Private Sub form_mousedown (button As Integer, shift As Integer, x As Single, y As Single) If button = 1 Then 'If the left button is pressed CurrentX = x: CurrentY = y sngdrawwidth = 1 DrawWidth = sngdrawwidth End IfEnd SubPrivate Sub form_mousemove ( Button as integer, x as single, y as single) Dim lngdrawcolor as long if button = 1 TEN 'uses different color if shift = 1 Then' simultaneously press the Shift key, the color is red ingdrawcolor = RGB (255, 0, 0) ElseIf shift = 2 Then 'while pressing the ctrl key, color vbgreen ingdrawcolor = vbGreen ElseIf shift = 4 Then ingdrawcolor = & HFF000 End If sngdrawwidth = sngdrawwidth 0.1' widening lines DrawWidth = sngdrawwidth line - (x, y ), IngdrawColor 'Prave End if End Sub
