Public Class Class1
    Public mainForm As Form
    Public userForm As Form1
 
    Public Sub sub1(ByVal c2 As Class2)
        mainForm = c2.obj_Form 'geht doch 
        userForm = c2.obj_ExtendedForm 'geht doch
    End Sub
End Class

Public Class Class2
    Public obj_Form As Form = New Form()
    Public obj_ExtendedForm As Form1 = New Form1
End Class

    Private Sub Test()
        Dim c1 As New Class1
        Dim c2 As New Class2
 
        c1.sub1(c2)
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist