Forcing Error???

[DerFarm]

The program is blowing up at this point:

Private Sub DoCapture_Click()
Dim str_temp0 As String, i As Integer
Dim aMsg As Msg
    Open "C:\downloads\xxx.xxx" For Output As #1
    Do While i < 1000
       dummy = GetMessage(aMsg, TargetWindowHandle, 0, 0)
       str_temp0 = Str$(aMsg.hWnd) & "|"
       str_temp0 = str_temp0 & Str$(aMsg.lParam) & "|"
       str_temp0 = str_temp0 & Str$(aMsg.message) & "|"
       str_temp0 = str_temp0 & Str$(aMsg.pt) & "|"
       str_temp0 = str_temp0 & Str$(aMsg.time) & "|"
       str_temp0 = str_temp0 & Str$(aMsg.wParam) & "|"
       Print #1, str_temp0
       i = i + 1
    Loop
    Close #1

Xit_DoCapture_Click:
End Sub

Type Msg
    hWnd As Long
    message As Long
    wParam As Long
    lParam As Long
    time As Long
    pt As POINTAPI
End Type

the error message is:

Compile Error:

Only user defined-types defined in public object modules
can be coerced to or from a variant or passed to late bound
functions.

DoCapture is a command button.

TargetWindowHandle is global. I get the same message when it
is set and when it is not.

Type POINTAPI has been properly typed.

Any ideas on what kind of stupid thing I've done?

[Hack]

On what specific line does it point when it blows up?

Also, post the entire routine. You have an variable called "dummy" that is not dimensioned (you are using Option Explicit I trust), and you have an error trapping routine with no exit sub before it, or no on error goto to get there.