VB6 Button - VB.NET

'------------------
'Creator: aeonhack
'Site: elitevs.net
'Created: 9/24/2011
'Changed: 9/24/2011
'Version: 1.0.0
'Theme Base: 1.5.3
'------------------
Class VB6Button
    Inherits ThemeControl153

    Sub New()
        SetColor("Back", 240, 240, 240)
        SetColor("Border1", Color.White)
        SetColor("Border2", 227, 227, 227)
        SetColor("Border3", 160, 160, 160)
        SetColor("Border4", 105, 105, 105)
        SetColor("Text", Color.Black)
        SetColor("Focus", Color.Black)
    End Sub

    Private C1 As Color
    Private P1, P2, P3, P4, P5 As Pen
    Private B1 As SolidBrush

    Protected Overrides Sub ColorHook()
        C1 = GetColor("Back")

        B1 = GetBrush("Text")

        P1 = GetPen("Border1")
        P2 = GetPen("Border2")
        P3 = GetPen("Border3")
        P4 = GetPen("Border4")
        P5 = GetPen("Focus")

        P5.DashStyle = DashStyle.Dot
    End Sub

    Protected Overrides Sub PaintHook()
        G.Clear(C1)
        G.TextRenderingHint = Drawing.Text.TextRenderingHint.SingleBitPerPixelGridFit

        If State = MouseState.Down Then
            DrawBorders(P3, 1)
            DrawBorders(P4)

            DrawText(B1, HorizontalAlignment.Center, 1, 1)
        Else
            DrawBorders(P1)
            DrawBorders(P2, 1)

            G.DrawLine(P4, 0, Height - 1, Width, Height - 1)
            G.DrawLine(P4, Width - 1, 0, Width - 1, Height)

            G.DrawLine(P3, 1, Height - 2, Width - 2, Height - 2)
            G.DrawLine(P3, Width - 2, 1, Width - 2, Height - 2)

            DrawText(B1, HorizontalAlignment.Center, 0, 0)
        End If

        If Focused Then
            DrawBorders(P5, 4)
        End If

    End Sub

    Protected Overrides Sub OnClick(ByVal e As System.EventArgs)
        Focus()
        MyBase.OnClick(e)
    End Sub

    Protected Overrides Sub OnGotFocus(ByVal e As EventArgs)
        Invalidate()
        MyBase.OnGotFocus(e)
    End Sub

    Protected Overrides Sub OnLostFocus(ByVal e As EventArgs)
        Invalidate()
        MyBase.OnLostFocus(e)
    End Sub

End Class