So rufen Sie das Fenster "�ffnen mit..." auf
    

ERFORDERLICHE OBJEKTE      

   1 CommandButton (Command1)
 FORM-CODE   

   Private Sub Command1_Click()
      'sinnvoll ist es, eine vorhandene Datei zu �bergeben,
      'da das ausgew�hlte Programm diese Datei sonst nicht
      'finden kann
      Endung = "test.txt"
      Shell "rundll32.exe shell32.dll, OpenAs_RunDLL " & Endung
   End Sub