Getting the size of another applications window..

I am having two issues here. The first one involve the data returned by GetWindowRect, it is flat out wrong. I have my desktop at 1280x1024 and the window I tried to get the info from takes up the full size top to bottom and 3/4 of the width of the entire available space, but it returns Top = 0, Bottom = 0, Left = 3, Right = 0, of which only the Left coordinate is right according to information about the window retrieved by Spy++, or for that matter, just basic common sense. The other issue is that when I close the small test program, it causes an exception in Kernel32. :p The following is the code, sans all the form layout etc.:

EnumDeclares.bas>>

Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean

Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal ccs As Long) As Long

Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long

Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

Type RECT
    Left As Integer
    Top As Integer
    Right As Integer
    Bottom As Integer
End Type

Public Myhandle As Long
Public WinName As String

Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
  Dim sSave As String, Ret As Long
  Dim TestWin As String
  TestWin = "MUSHclient" 'Change to whichever window is being looked for.
  Ret = GetWindowTextLength(hwnd)
  sSave = Space(Ret)
  GetWindowText hwnd, sSave, Ret + 1
  TestEnumWin.RichTextBox1.Text = TestEnumWin.RichTextBox1.Text + vbCrLf + Hex(hwnd) + " " + sSave + " " + Str$(InStr(sSave, TestWin))
  If InStr(sSave, TestWin) Then 'Replace with key word to look for.
    Myhandle = hwnd
    WinName = sSave
  End If
  EnumWindowsProc = True
End Function

Code from the form>>

Private Sub Form_Load()
  Dim WinRect As RECT
  EnumWindows AddressOf EnumWindowsProc, ByVal 0&
  GetWindowRect Myhandle, WinRect
  'GetWindowRect TestEnumWin.hwnd, WinRect
  TestEnumWin.TopText = WinRect.Top
  TestEnumWin.BottomText = WinRect.Bottom
  TestEnumWin.LeftText = WinRect.Left
  TestEnumWin.RightText = WinRect.Right
  TestEnumWin.NameText = WinName
End Sub

This is annoyingly the last critical piece in a small animated firework gadget I want to 'dock' to a program called MUSHclient. The idea is to get the windows current size and position, then when ever it gets resized, also move and resize the firework display. Eventually, I want to use the same code in other tools that can be attached to the client as well, like a form for a database, a map displayer and other stuff like the firework gadget that is problematic at best, since it requires code execution that is in a seperate thread from the clients scripting, which would hang the client during execution if used to perform the same task. Without being able to get the above to work right, let alone reliably, I am pretty much sunk... :p

Oh yeah.. I am using VB6 on Windows 98se.