Any One That Knows Anything(HELP!!!)

Try this:

Public Declare Function FindWindow Lib "user32" _
 Alias "FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long

Public Declare Function SendMessageByNum& Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As _
Long, ByVal wParam As Long, ByVal lParam As Long)

Public Const WM_CLOSE = &H10


Public Sub AOL_Wait4it()
'// waits for a message box then kills it
On Error Resume Next
Dim msg As Long
  Do
   DoEvents
    msg& = FindWindow("#32770", "America Online")
  Loop Until msg& <> 0
    CloseWin msg&
End Sub

Public Sub CloseWin(Winder As Long)
'// close a window by its handle
On Error Resume Next
Dim Dummy As Long
    Dummy& = SendMessageByNum&(Winder, WM_CLOSE, 0&, 0&)
End Sub