Welcome to the Lounge

Public Class cMyButton
    Inherits Button

    Dim m_Form As Form
    Public Property FormToOpen As Form
        Set(ByVal value As Form)
            m_Form = value
        End Set
        Get
            Return m_Form
        End Get
    End Property
    Private Sub cMyButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
        m_Form.ShowDialog()
    End Sub
End Class