>Hi,
> I am making an ActiveX Control in which I get the
>following error when I tried to place it on the form in
>the same project.
> Also it is not allowing me to add the ActiceX control
>on the Other project say (project2) though it is apparing
>on the ToolBox
>
>Error
>*****
>Cannot define a Public user-dfined tyep within a private
>object module.
>
>And this is my code in Class Modle.
>
>Type POINTAPI
> X As Long
> Y As Long
>End Type
>
>Declare Function GetCursprPos& Lib "user32" (lpPoint As POINTAPI)
>Declare Function WindowFromPoint& Lib "user32" (ByVal lpPointX As Long, ByVal lpPointY As Long)

Add the Private statement in front of these lines like this:

Private Type POINTAPI
    X As Long
    Y As Long
End Type

Private Declare Function GetCursprPos& Lib "user32" (lpPoint As POINTAPI)
Private Declare Function WindowFromPoint& Lib "user32" (ByVal lpPointX As Long, ByVal lpPointY As Long)