Public Property Get X() As Long
   X = 10
End Property
 
Public Property Let X(ByVal nPos As Long)
   MsgBox "Hat hier jemand X gerufen?"
End Property

Sub Main()
   MsgBox "Ich bin die EXE, nicht schließen!!!"
End Sub

Sub test()
   Dim objX As MakeXLib.MakeX
 
   Set objX = New MakeXLib.MakeX
 
   objX = 20 
End Sub

Sub TestlateBinding()
   Dim objX As Object
 
   Set objX = CreateObject("MakeXLib.MakeX")
 
   If ObjPtr(objX) Then
       objX.X = 20
   End If
End Sub