Private IsMouseDown As Boolean = False
 
    Private Sub ListButton_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        Male(e)
    End Sub
 
    Private Sub ListButton_Resize(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles MyBase.Resize
        Me.Invalidate()
    End Sub
 
    Private Sub Male(ByVal e As PaintEventArgs)
        'Dim G As Graphics = e.Graphics
        With e.Graphics
 
            Dim SF As New StringFormat()
            SF.Alignment = StringAlignment.Center
            SF.LineAlignment = StringAlignment.Center
            SF.Trimming = StringTrimming.EllipsisWord
            .DrawString(Text, Font, New SolidBrush(Color.Black), New RectangleF( _
              5, 5, Width - 5, Height - 5), SF)Width - 5, Height - 5), SF)
          End With
    End Sub
 
    Private Sub ListButton_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        IsMouseDown = True
        Me.Invalidate()
    End Sub
 
    Private Sub ListButton_MouseUp(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
        IsMouseDown = False
        Me.Invalidate()
    End Sub