Private Sub cmd1_MouseEnter(sender As Object, _
        e As System.EventArgs) Handles cmd1.MouseEnter
        cmd1.Invalidate()
    End Sub
 
 
    Private Sub cmd1_MouseLeave(sender As Object, _
        e As System.EventArgs) Handles cmd1.MouseLeave
        cmd1.Invalidate()
    End Sub
 
 
    Private Sub cmd1_Paint(sender As Object, _
        e As System.Windows.Forms.PaintEventArgs) Handles cmd1.Paint
 
        Dim mp As Point = cmd1.PointToClient(MousePosition)
 
        Using br_back As New SolidBrush(cmd1.BackColor), _
            br_font As New SolidBrush(cmd1.ForeColor), _
            br_border As New SolidBrush(cmd1.FlatAppearance.BorderColor)
 
            e.Graphics.FillRectangle(br_back, e.ClipRectangle)
            e.Graphics.DrawString(cmd1.Text, cmd1.Font, br_font, New Point(5, _
              5))
 
            If e.ClipRectangle.Contains(mp) Then
                e.Graphics.DrawRectangle(New Pen(br_border, 2), e.ClipRectangle)
            End If
        End Using
    End Sub