' Erzeugt das Basis-Steuerelement, von dem die anderen Steuerelemente erben
Public Class BaseControl
	 Inherits UserControl
        Public Overridable ReadOnly Property CustomProperty() As Boolean
        	Get 
          	 Return False
        	End Get
        End Property
 
        Public Overridable  Sub CustomMethod()
        End Sub
End Class
 
' Ein neues Steuerelement:
Public Class NewControl1 : Inherits BaseControl
        Public Overrides WriteOnly Property CustomProperty() As Boolean
        	Set (ByVal Value As Boolean) 
          ' Implementierung
        	End Set
        End Property
 
        Public Overrides  Sub CustomMethod()
          ' Implementierung der Methode für dieses Steuerelement
        End Sub
End Class

' Variabeln für zwei benutzerdefinierte Steuerelemente
Dim control1 As BaseControl =  New NewControl1() 
Dim control2 As BaseControl =  New NewControl2() 
Dim current As BaseControl
 
' Diese Sub  tauscht die Steuerelemente aus
Public  Sub SwitchControls()
  current.Visible = False
  If current = control1 Then
    current = control2
  Else 
    current = control1
  End If
  current.Visible = True
End Sub

-----
"There's never enough time to do all the nothing you want."
(Calvin and Hobbes)