Private Sub Command1_Click()
 Dim ParentForm As Form
 Set ParentForm = UserControl.Parent
 MsgBox ParentForm.Name
End Sub