[Module modMain
 
	Public Sub Main()
		Dim btn As Button = Explorer1.btnTest
		Dim mybtn As New clsButton(24, "Norbert")
 
		mybtn = btn
		Debug.Print("Nummer = " + CStr(mybtn.Nummer))
		Debug.Print("myName = " + CStr(mybtn.myName))
	End Sub
End Module
 
Public Class clsButton
	Inherits Button
	Public Nummer As Integer
	Public myName As String
 
	Public Sub New(ByVal MNummer As Integer, ByVal mName As String)
		Nummer = MNummer
		myName = mName
	End Sub
 
End Class