Public Class clsControl
    Friend WithEvents mButton As System.Windows.Forms.Button
    Public Sub New(ByVal meForm As Form, _
                   ByVal intX As Integer, _
                   ByVal intY As Integer, _
                   ByVal text As String)

        mButton = New Button()
        meForm.SuspendLayout()
        mButton.Location() = New Point(intX, intY)
        mButton.Text = text
        meForm.ResumeLayout(False)
        meForm.Controls.Add(mButton)
    End Sub
    Public Function retButton() As System.Windows.Forms.Button
        retButton = mButton
    End Function

    Public Sub OnClick(ByVal meEvent As EventArgs)

    End Sub

    Protected Overrides Sub Finalize()
        mButton = Nothing
    End Sub
End Class