• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Window Search Result

Window Search Result

Window Search Result

Rate Window Search Result

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Private Declare Function ShellExecute Lib “shell32.dll” alias “ShellExecuteA” (ByVal hwnd as long, byVal lpOperation as string, byVal lpFile as String, byVal lpParameters as string, byVal lpDirectory as string,byVal mShowCmd as long) as long

‘constanta

Private Cons SW_SHOWNORMAL =1

Private sub cmd_Click()

Dim strDir As String

strDir =”D:\”

’show dialog box search results

Call ShellExecute(Me.hwnd, “find”,strDir,vbNullString,vbNullString,SH_SHOWNORMAL)

End Sub