Private Declare Function SHRunDialog Lib "shell32" Alias "#61" (ByVal hOwner As _
  Long, ByVal Unknown1 As Long, ByVal Unknown2 As Long, ByVal szTitle As _
  String, ByVal szPrompt As String, ByVal uFlags As Long) As Long
 
Const shrdNoMRUString = &H2   
 
Private Sub Form_Load()
        SHRunDialog Me.hwnd, 0, 0, "Programm starten", "Programmname eingeben" & _
          "...", 0
End Sub