CodeItBetter Programming Another VB Programming Blog

'System & API - How to show Run Dialog
Private Declare Function SHRunDialog Lib "shell32" Alias "#61" (ByVal hwnd As Long, _
    ByVal I_dont_know_1 As Long, ByVal I_dont_know_2 As Long, ByVal dTitle As String, _
    ByVal dPrompt As String, ByVal uFlags As Long) As Long
 
Private Sub Form_Load()
    'No Browse Button. Need to enter the program path manually
    'SHRunDialog hwnd, 0, 0, "This is Run dialog", "Please enter the program you wish to run ", 1
    'Normal Run Dialog
    SHRunDialog hwnd, 0, 0, "This is Run dialog", "Please enter the program you wish to run ", 2
    Unload Me
End Sub