Class frmMainFormular
   Public Sub Form_Load()...
      Call CreateControls --> 1-n Buttons werden dynamisch geladen indem die _
        Controls-Tabelle      ausgelesen wird. Gleichzeitig ist in der _
        Datenbank hinterlegt, auf welche Events der jeweilie   Button reagieren _
        soll
   End Sub
 
   Public Sub AllgemeinButton_Click()...
      Datareader = "SELECT Function FROM Controls WHERE ButtonID = 1234'"
 
      Do While datareader.read()
         Funktionsauftruf("FormSchließen(Me)")
      loop
   End Sub
End Class

Class Funktionalitaeten
   Public Function FormSchließen(oForm as Form) AS boolean
      Call oForm.Hide()
   End Function
 
   Public Function DatenSpeichern() As boolean
      Call Speichern....
   End Function
End Class