Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
  (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
  ByVal lpParameters As String, ByVal lpDirectory As String, _
  ByVal nShowCmd As Long) As Long
 
Private Function OpenWithLinkedApp(ByVal lOwnerHWND As Long, _
  ByVal sFile As String, Optional ByVal sVerb As String = "open") As Boolean
 
  OpenWithLinkedApp = ShellExecute(lOwnerHWND, sVerb, sFile, "", "", 1) > 32
 
  End Function
 
 
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, _
  ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal Y As Long, _
  ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
 
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOMOVE = 2
Private Const SWP_NOSIZE = 1
Private Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
 
Public Function TopMost(ByVal hWnd As Long, _
  Optional ByVal bTopMost As Boolean = True) As Boolean
 
  Dim lInsertAfter As Long
  lInsertAfter = IIf(bTopMost, HWND_TOPMOST, HWND_NOTOPMOST)
  TopMost = SetWindowPos(hWnd, lInsertAfter, 0, 0, 0, 0, FLAGS) <> 0
End Function
 
Private Sub Form_Load()
TopMost Me.hWnd
End Sub
 
Private Sub Timer1_Timer()
WebBrowser1.Navigate "http://www.xxxxx.net/chat/online.php"
End Sub
 
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
OpenWithLinkedApp Me.hWnd, "http://www.xxxx.net/chat"
End Sub