|
'If uFlags is the following constant, the string from the last-run program will not appear in the dialogs combo box
Const shrdNoMRUString = &H2 '2nd bit is set
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()
'KPD-Team 1999
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
SHRunDialog Me.hwnd, 0, 0, "Start a program ...", "Type the name of a program ...", 0
End Sub
|
|