Crear tu propio control personalizado en vb.net

Public Class Header
    Private form As Form
    //Para poder cambiar el texto
    Public Property gTextoLabel As String
        Get
            Return lblTexto.Text
        End Get
        Set(value As String)
            lblTexto.Text = value
        End Set
    End Property
    //Seleccionar el formulario, Si esque añadimos la opcion de cerrar ventana, minimizar
    Public Property gForm As Form
        Get
            Return form
        End Get
        Set(value As Form)
            form = value
        End Set
    End Property
    //cambiar el color del texto
    Public Property gForeColorTexto As Color
        Get
            Return lblTexto.ForeColor
        End Get
        Set(value As Color)
            lblTexto.ForeColor = value
        End Set
    End Property
    //Color de Fondo del contenedor
    Public Property gBackColor As Color
        Get
            Return panelContenedor.BackColor
        End Get
        Set(value As Color)
            panelContenedor.BackColor = value
        End Set
    End Property

    Public Property gFontTexto As Font
        Get
            Return lblTexto.Font
        End Get
        Set(value As Font)
            lblTexto.Font = value
        End Set
    End Property

    Public Property gImageIcon As Image
        Get
            Return pictureImg.Image
        End Get
        Set(value As Image)
            pictureImg.Image = value
        End Set
    End Property

    Public Property gImageMinimize As Image
        Get
            Return pictureMinimize.Image
        End Get
        Set(value As Image)
            pictureMinimize.Image = value
        End Set
    End Property

    Public Property gImageClose As Image
        Get
            Return pictureClose.Image
        End Get
        Set(value As Image)
            pictureClose.Image = value
        End Set
    End Property

    Private Sub pictureMinimize_Click(sender As Object, e As EventArgs) Handles pictureMinimize.Click
        Try
            Dim verificaImg As Boolean
            verificaImg = IsNothing(pictureMinimize) Or IsNothing(pictureMinimize.Image)

            If verificaImg = False Then
                gForm.WindowState = FormWindowState.Minimized
            Else
                pictureMinimize.Cursor = DefaultCursor
            End If

        Catch ex As Exception
            MsgBox("Seleccione [Form].", MsgBoxStyle.Exclamation, ".::. Upps ! Algo salio mal .::.")
        End Try

    End Sub

    Private Sub pictureClose_Click(sender As Object, e As EventArgs) Handles pictureClose.Click
        Try
            Dim verificaImg As Boolean
            verificaImg = IsNothing(pictureClose) Or IsNothing(pictureClose.Image)

            If verificaImg = False Then
                gForm.Close()
            Else
                pictureClose.Cursor = DefaultCursor
            End If


        Catch ex As Exception
            MsgBox("Seleccione [Form].", MsgBoxStyle.Exclamation, ".::. Upps ! Algo salio mal .::.")
        End Try

    End Sub
End Class