'************************************************
'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
'************************************************

    Source: geocities.com/matkins70