Zitat:

Falls ein Bug auftritt weiß man dann sofort: Ah, ich checke nochmal diese Klassenmethode, weil ich ja genau weiß, dass im Formular kein relevanter Code ist. Ansonsten sucht man sich dumm und dämlich (War der Code der den Fehler verursacht jetzt im Button, in der Klasse, ...).

Private Sub Command1_Click()
    Dim obj As Object
    If Text1.Text = obj Then class1.DoSomething
End Sub

Private Sub Command1_Click()
    class1.DoSomething
End Sub
 
Public Sub Class1_DoSomething()
    Dim obj As Object
    If Form1.Text1.Text = obj Then MsgBox "Fehler"
End Sub

http://rm_code.dl.am