Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) _
  As Long
Private Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As _
Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal _
lpClassName As Any, ByVal lpWindowName As Any) As Long
 
Public Sub BringToFront(ByVal WindowCaption As String)
  Dim myHandle As Long
  Dim myRet As Long
 
  myHandle = FindWindow(vbEmpty, WindowCaption)
  myHandle = SetForegroundWindow(myHandle)
  myRet = BringWindowToTop(myHandle)
 
End Sub