Any Help With VB 6 Please

[abdthebest]

:confused:
I Have some problem with active x programe
That make an active x program and add image and make property get and let as string and make evrey thing necessary for the active x but when i add the active x on the another form the property apper as integer this is the code


Public Event Dbclick()
Public Event click()
Public Property Get pic() As String
pic = Image1.Picture
End Property

Public Property Let pic(ByVal vNewValue As String)
Image1.Picture = LoadPicture(vNe wValue)
PropertyChanged "pic"
End Property

Private Sub UserControl_Cli ck()
RaiseEvent click
End Sub

Private Sub UserControl_Dbl Click()
RaiseEvent Dbclick
End Sub

Private Sub UserControl_Rea dProperties(Pro pBag As PropertyBag)
pic = PropBag.ReadPro perty("pic")
End Sub

Private Sub UserControl_Wri teProperties(Pr opBag As PropertyBag)
PropBag.WritePr operty "pic", "pic"
End Sub
Private Sub UserControl_Ini tProperties()
pic = "D:\Documen ts and Settings\Mo2men \Desktop\280.jp g"
End Sub