achei a resposta:
Private Sub UserControl_click()
Label1.Left = 0
Label1.Top = 0
Label1.AutoSize = True
UserControl.Width = Label1.Width
UserControl.Height = Label1.Height
End Sub Para usercontrols, a palavra
UserControl funciona como o
Me para forms...