Dynamisches Formular
19.04.2003 19:18:28
Markus
Ich habe ein Problem, das folgendermaßen aussieht:
Ich habe ein Formular in das beim Clicken eines CommandButton
ein neuer CommandButton eingefügt werden.
Das sieht so aus:
dim Transport as Control
set Transport = Controls.add("Forms.CommandButton.1")
Transport.Name= "TransportBtn"
Das Problem ist, dass man mit dem Button nichts auslösen kann.
Normalerweise steht ja in dem Code vom Formular:
Private Sub TransportBtn_Click()
MsgBox("Test") 'Nur so zur Demo
End Sub
Aber beim Clicken des Button tut sich garnichts,
also was mache ich falch??
Bitte helft mir.