dim myform as new meineigenesformular
 
with myform
  .Text ="meineÜberschrift"
  .MeineCombox.items.add("Das Auswählen")
  .MeineCombox.items.add("Oder das")
  .MeineCombox.selectedIndex=0
end with
 
' so jetzt geh ich hin und ruf das teil auf ....
myform.showdialog()
 
'jetzt hängt das Teil ab und an mal ... 
'wenn ich aber vorher 
msgbox "einfach nur so" 
 
myform.showdialog ()
 
'mache funzt es