Zitat:

@Dave: Wenn sich Die Subs auf alle Controls und deren gemeinsame Nutzung betiehen kann ich dann doch auch direkt von Control ableiten oder?

Zitat:

Wenn es dann um spezifische Sachen geht, muss ich dann jedes Control neu ableiten oder kann man die auch irgendwie gruppieren?

Public Class TextBoxes_Extentend
    Inherits System.Windows.Forms.Form.TestBox
 
    'Hier alle Subs rein, welche bei allen TextBoxen gleich sind
    Function IsContentOk() As Boolean
     If Me.Text <> "" then
      return True
     Else
      return False
     End If
    End Sub
 
End Class
 
Public Class TextBox_Extentend_Float
    Inherits TextBoxes_Extentend
 
    'Hier alle Subs rein, welche nur bei TextBoxen, welche Fließkommazahlen 
    ' enthalten sollen, Sinn ergeben.
    Function IsContentOk() As Boolean
      If IsNumeric(Me.Text) = True _
      AND MyBase.IsContentOk = True Then
       return True
      Else
       return False
      End If
    End Function
 
    'Macht bei allen TextBoxen kein Sinn, sondern nur bei Fließkommazahlen
    Property Anzahl_Stellen_nach_Kommastellen As Integer
     'Hier muss noch Code rein
    End Property
 
 
End Class