Double Mouse pointer issue

[Anonymous]

I run a program I wrote inside AutoCAD 2007 that uses a few VB forms. When I close the program, I am left with the typical AutoCAD crosshairs AND the system Mouse Pointer. No errors, just two pointers.

The AutoCAD crosshairs do NOT move, like AutoCAD does not have the focus. If I hit the ESC key, or click the mouse, the "system" mouse pointer goes away.

What am I missing when I close the application ot return to AutoCAD?

[arcticad]

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


Sub SwitchFocus()
Dim AcadHandle As Long
Dim FormHandle As Long
Dim acadApp As AcadApplication
Dim WindowReturn As Long
Set acadApp = GetObject(, "AutoCAD.Application")
AcadHandle = FindWindow(vbNullString, acadApp.Caption)
WindowReturn = SetActiveWindow(AcadHandle)
End Sub