Shoutbox

code:

---

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Form_Load()

'   hWnd would be the variable that contains the actual window handle. Change it with whatever you are using to store the Window Handle in.
    SetForegroundWindow hWnd

End Sub

---