Public Declare Function BringWindowToTop Lib "user32" _
    (ByVal hWnd As Long) As Long

Public Sub Window2Top(hWnd As Long)
    'Bring the specified window to the front
    BringWindowToTop hWnd
End Sub