Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    'tools.MousePointer = 0
End Sub

Sub Style_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
    If Button = 1 And Y >= 60 And Y < 660 Then
      i = (Y - 60) \ 120
      PointerStyle.Top = 2040 + i * 120
      Select Case ToolStatus$
        Case "pointer"
          Select Case SelectObject$
            Case "line"
              main.Line1(CurrentNo).BorderStyle = i + 1
            Case "rectangle"
              main.Rectangle1(CurrentNo).BorderStyle = i + 1
            Case "roundrectangle"
              main.RoundRectangle1(CurrentNo).BorderStyle = i + 1
            Case "circle"
              main.Circle1(CurrentNo).BorderStyle = i + 1
            Case "diamond"
              main.Diamond(CurrentNo).BorderStyle = i + 1
              main.Diamond1(CurrentNo * 4).BorderStyle = i + 1
              main.Diamond1(CurrentNo * 4 + 1).BorderStyle = i + 1
              main.Diamond1(CurrentNo * 4 + 2).BorderStyle = i + 1
              main.Diamond1(CurrentNo * 4 + 3).BorderStyle = i + 1
          End Select
        Case "line"
          main.Line1(0).BorderStyle = i + 1
        Case "rectangle"
          main.Rectangle1(0).BorderStyle = i + 1
        Case "roundrectangle"
          main.RoundRectangle1(0).BorderStyle = i + 1
        Case "circle"
          main.Circle1(0).BorderStyle = i + 1
        Case "diamond"
          main.Diamond(0).BorderStyle = i + 1
          main.Diamond1(0).BorderStyle = i + 1
          main.Diamond1(1).BorderStyle = i + 1
          main.Diamond1(2).BorderStyle = i + 1
          main.Diamond1(3).BorderStyle = i + 1
      End Select
    End If
End Sub

Sub toolCircleOFF_Click ()
    DisableTool
    If toolCircleOFF.Visible Then
      toolCircleOFF.Visible = False
      toolCircleON.Visible = True
      ToolStatus$ = "circle"
      SelectObject$ = "pointer"
      PointerStyle.Top = 1920 + main.Circle1(0).BorderStyle * 120
      PointerWidth.Top = 2880 + main.Circle1(0).BorderWidth * 120
      Call DotAllHide
    End If
End Sub

Sub toolDiamondOFF_Click ()
    DisableTool
    If toolDiamondOFF.Visible Then
      toolDiamondOFF.Visible = False
      toolDiamondON.Visible = True
      ToolStatus$ = "diamond"
      SelectObject$ = "pointer"
      PointerStyle.Top = 1920 + main.Diamond(0).BorderStyle * 120
      PointerWidth.Top = 2880 + main.Diamond(0).BorderWidth * 120
      Call DotAllHide
    End If

End Sub

Sub toolLineOFF_Click ()
    DisableTool
    If toolLineOFF.Visible Then
      toolLineOFF.Visible = False
      toolLineON.Visible = True
      ToolStatus$ = "line"
      SelectObject$ = "pointer"
      PointerStyle.Top = 1920 + main.Line1(0).BorderStyle * 120
      PointerWidth.Top = 2880 + main.Line1(0).BorderWidth * 120
      Call DotAllHide
    End If
End Sub

Sub toolPointerOFF_Click ()
    DisableTool
    If toolPointerOFF.Visible Then
      toolPointerOFF.Visible = False
      toolPointerON.Visible = True
      ToolStatus$ = "pointer"
      SelectObject$ = "pointer"
      Call DotAllHide
    End If
End Sub

Sub toolRectangleOFF_Click ()
    DisableTool
    If toolRectangleOFF.Visible Then
      toolRectangleOFF.Visible = False
      toolRectangleON.Visible = True
      ToolStatus$ = "rectangle"
      SelectObject$ = "pointer"
      PointerStyle.Top = 1920 + main.Rectangle1(0).BorderStyle * 120
      PointerWidth.Top = 2880 + main.Rectangle1(0).BorderWidth * 120
      Call DotAllHide
    End If
End Sub

Sub toolRoundRectangleOFF_Click ()
    DisableTool
    If toolRoundRectangleOFF.Visible Then
      toolRoundRectangleOFF.Visible = False
      toolRoundRectangleON.Visible = True
      ToolStatus$ = "roundrectangle"
      SelectObject$ = "pointer"
      PointerStyle.Top = 1920 + main.RoundRectangle1(0).BorderStyle * 120
      PointerWidth.Top = 2880 + main.RoundRectangle1(0).BorderWidth * 120
      Call DotAllHide
    End If
End Sub

Sub toolTextOFF_Click ()
    DisableTool
    If toolTextOFF.Visible Then
      toolTextOFF.Visible = False
      toolTextON.Visible = True
      ToolStatus$ = "text"
      SelectObject$ = "pointer"
      Call DotAllHide
    End If
    main.menuText.Enabled = True
End Sub

Sub Width_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
    If Button = 1 And Y >= 60 And Y < 660 Then
      i = (Y - 60) \ 120
      PointerWidth.Top = 3000 + i * 120
      Select Case ToolStatus$
        Case "pointer"
          Select Case SelectObject$
            Case "line"
              main.Line1(CurrentNo).BorderWidth = i + 1
            Case "rectangle"
              main.Rectangle1(CurrentNo).BorderWidth = i + 1
            Case "roundrectangle"
              main.RoundRectangle1(CurrentNo).BorderWidth = i + 1
            Case "circle"
              main.Circle1(CurrentNo).BorderWidth = i + 1
            Case "diamond"
              main.Diamond(CurrentNo).BorderWidth = i + 1
              main.Diamond1(CurrentNo * 4).BorderWidth = i + 1
              main.Diamond1(CurrentNo * 4 + 1).BorderWidth = i + 1
              main.Diamond1(CurrentNo * 4 + 2).BorderWidth = i + 1
              main.Diamond1(CurrentNo * 4 + 3).BorderWidth = i + 1
          End Select
        Case "line"
          main.Line1(0).BorderWidth = i + 1
        Case "rectangle"
          main.Rectangle1(0).BorderWidth = i + 1
        Case "roundrectangle"
          main.RoundRectangle1(0).BorderWidth = i + 1
        Case "circle"
          main.Circle1(0).BorderWidth = i + 1
        Case "diamond"
          main.Diamond(0).BorderWidth = i + 1
          main.Diamond1(0).BorderWidth = i + 1
          main.Diamond1(1).BorderWidth = i + 1
          main.Diamond1(2).BorderWidth = i + 1
          main.Diamond1(3).BorderWidth = i + 1
      End Select
    End If
End Sub

