Private HorLineColor As Color = Color.DodgerBlue
    Private HorNo As Integer = 0
 
    Private Sub NcmdAddHorSep_Click(sender As Object, e As EventArgs) Handles _
      NcmdAddSepHor.Click
        If AllowDrag Then
            Dim np As New NPanControls.NPanel
            HorNo += 1
            np.Name = "Sep" & HorNo
            np.Parent = Me
            np.Size = New Size(200, 10)
            np.Location = New Point((Width / 2) - (np.Width / 2), (Height / 2) _
              - (np.Height / 2))
            AddHandler np.Paint, AddressOf np_Paint
            AddHandler np.MouseDown, AddressOf StartDrag
            AddHandler np.MouseMove, AddressOf WhileDragging
            AddHandler np.MouseUp, AddressOf EndDrag
            AddHandler np.MouseClick, AddressOf ClickMouse
            AddHandler np.MouseEnter, AddressOf ControlMouseEnter
 
            Controls.Add(np)
            np.BringToFront()
                   End If
    End Sub
 
    Private Sub ColorToolStripMenuItem_Click(sender As Object, e As EventArgs) _
      Handles ColorToolStripMenuItem.Click
        If dlgColor.ShowDialog <> DialogResult.Cancel Then
            HorLineColor = dlgColor.Color
            Refresh()
        End If
    End Sub
 
    Private Sub np_Paint(sender As Object, e As PaintEventArgs)
        Dim Pen As New Pen(HorLineColor, 2) '(Color.DodgerBlue, 2)
        Dim pS As New Point(1, 1)                                               _
              ' Start
        Dim pE As New Point(DirectCast(sender, NPanControls.NPanel).Width - 1, _
        1)   ' End
        e.Graphics.DrawLine(Pen, pS, pE)
        Pen.Dispose()
    End Sub