'************************************************ 'For more Downloads : www.vivekpatel.cjb.net 'Email : vivek_patel9@rediffmail.com '************************************************ 'To open Run dialog box and other stuff !!! from VB applications. 'In Project->Reference->add item Microsoft Shell Controls and Automation component (exposed in shell32.dll) Private shlShell As Shell32.Shell Private shlFolder As Shell32.Folder 'open Run dialog box Private Sub Command1_Click() If shlShell Is Nothing Then Set shlShell = New Shell32.Shell End If shlShell.FileRun End Sub 'open find dialog box Private Sub Command2_Click() If shlShell Is Nothing Then Set shlShell = New Shell32.Shell End If shlShell.FindFiles End Sub 'to minimize all application window Private Sub Command3_Click() If shlShell Is Nothing Then Set shlShell = New Shell32.Shell End If shlShell.MinimizeAll End Sub 'Open Explorer Private Sub Command4_Click() If shlShell Is Nothing Then Set shlShell = New Shell32.Shell End If shlShell.Explore (App.Path) End Sub 'Shutdown your windows Private Sub Command5_Click() If shlShell Is Nothing Then Set shlShell = New Shell32.Shell End If shlShell.ShutdownWindows End Sub 'And so on you can go with it to satisfy your needs. '************************************************ 'For more Downloads : www.vivekpatel.cjb.net 'Email : vivek_patel9@rediffmail.com '************************************************