Const shrdNoMRUString = &H2 'Visar inte några tidigare kommandon.

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
Private Sub Form_Load()
Dim sTitle As String
Dim sPrompt As String
sTitle = "Starta ett program..."
sPrompt = "Skriv in sökvägen till ett program här:"

SHRunDialog Me.hWnd, 0, 0, sTitle, sPrompt, 0

End Sub