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()
    SHRunDialog hWnd, 0, 0, "This is Run dialog", _
    "Please enter the program you wish to run ", 1
    SHRunDialog hWnd, 0, 0, "This is Run dialog", "Please enter the program you wish to run ", 2 'Normal Run Dialog
    End
End Sub