Private oControl As UserControl1 'je nachdem, wie du das Control nennst ( 
' Achtung: Klassenname!)
 
Public Sub SetControl(ByRef oCtl As UserControl1) 'Hier wieder den Klassennamen 
' des UserControls angeben
Set oControl = oCtl
End Sub

Public Sub PolygonShow()
Form1.SetControl Me
Form1.Show
'... sonstigen Code kannst du hier irgendwo dazufügen
End Sub