--Вот что у меня в модуле контрола
Dim prpWidth As Integer
Dim prpHeight As Integer 

Public Property Get Width() As Variant
Width = prpWidth
End Property

Public Property Let Width(ByVal vNewValue As Variant)
prpWidth = vNewValue
End Property

Public Property Get Height() As Variant
Height = prpHeight
End Property

Public Property Let Height(ByVal vNewValue As Variant)
prpHeight = vNewValue
End Property

Public Function DrawCircle()
'Вот здесь рисуем

'Если это обыкновенная форма то рисуется так
'Me.Circle (Me.Width/2, Me.Height/2), Me.Width / 4, vbRed

'Однако мы в юзерконтроле и у него нет метода Circle и я немогу его создать
'Сам контрол называется UsCtrl пробую вот так, но тоже ошибка
'UsCtrl.Circle (Me.Width/2, Me.Height/2), Me.Width / 4, vbRed

'Пробую так 
UserControl.Circle (Me.Width/ 2 , Me.Height/ 2 ), Me.Width /  4 , vbRed
'Ошибки нет, даже показывает что есть такой метод, но ничего не рисует
UserControl.Refresh
' У меня такое подозрение что надо чтото между UserControl ......(и)...Circle написать, но не пойму что
End Function