Public Class PanelBackColor
    Inherits System.Windows.Forms.Panel
 
    Dim WithEvents btnStart As New Windows.Forms.Button _
        With {.Parent = Me, .Top = 10, .Left = 10, _
            .Width = 80, .Height = 50, .Text = "Push"}
 
    Private Sub btnStart_Click(sender As Object, _
        e As System.EventArgs) Handles btnStart.Click
        If Me.BackColor = Drawing.Color.Red Then
            Me.BackColor = Drawing.Color.Green
        Else
            Me.BackColor = Drawing.Color.Red
        End If
    End Sub
 
    Private Sub PanelBackColor_Resize(sender As Object, _
        e As System.EventArgs) Handles Me.Resize
        If Me.Width < 100 Then Me.Width = 100
        If Me.Height < 70 Then Me.Height = 70
    End Sub
End Class