Private pValue As OLE_OPTEXCLUSIVE
 
 
 
Public Property Get Value() As OLE_OPTEXCLUSIVE
   Value = pValue
End Property
 
Public Property Let Value(ByVal New_Value As OLE_OPTEXCLUSIVE)
   If New_Value <> pValue Then
      pValue = New_Value
      PropertyChanged "Value"
   End If
   UserControl_Resize
End Property

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control