ActiveX .exe won't unload if EnumDisplayMonitors in Formload()

Here is the MonitorEnumProc code. it is tutorial code I found on the net that I am not really using in it's entirety.

I'll take a better look at that code. Thanks for making me think.

Here it is for better or worse.

Public Function MonitorEnumProc(ByVal hMonitor As Long, ByVal hdcMonitor As Long, lprcMonitor As RECT, ByVal dwData As Long) As Long
Dim MI As MONITORINFO, r As RECT
Debug.Print "Moitor handle: " + CStr(hMonitor)
'initialize the MONITORINFO structure
MI.cbSize = Len(MI)
'Get the monitor information of the specified monitor
GetMonitorInfo hMonitor, MI
'write some information on teh debug window
Debug.Print "Monitor Width/Height: " + CStr(MI.rcMonitor.Right - MI.rcMonitor.Left) + "x" + CStr(MI.rcMonitor.Bottom - MI.rcMonitor.Top)
Debug.Print "Primary monitor: " + CStr(CBool(MI.dwFlags = MONITORINFOF_PRIMARY))
'check whether frmConsole is located on this monitor
'' If MonitorFromWindow(frmConsole.hwnd, MONITOR_DEFAULTTONEAREST) = hMonitor Then
'' Debug.Print "frmConsole is located on this monitor"
'' End If
'heck whether the point (0, 0) lies within the bounds of this monitor
If MonitorFromPoint(0, 0, MONITOR_DEFAULTTONEAREST) = hMonitor Then
Debug.Print "The point (0, 0) lies wihthin the range of this monitor..."
End If
'check whether frmConsole is located on this monitor


GetWindowRect BCRScribbleStrip.frmBCRConsole.hWnd, r
If MonitorFromRect(r, MONITOR_DEFAULTTONEAREST) = hMonitor Then
Debug.Print "The rectangle of frmConsole lies within this monitor"
End If
Debug.Print ""
'Continue enumeration
MonitorEnumProc = 1
End Function