Private oUC As Object
 
Public Sub SetUC(Obj As Object)
Set oUC = Obj 'dann kannst du mit oUC.Hwnd zb. auf den Handle zugreifen
End Sub

Sub UserControl_ReadProperties)..)
SetUC UserControl 'oder SetUC Me, ka, was funktionieren könnte
End Sub