Private frmMainReferenz As frmMain

    Public Sub New(ByVal MainInstanz As frmMain)
        frmMainReferenz = MainInstanz
 
        ......
 
    End Sub

Sub COMRX (ByVal intNr as Integer)
    frmMainReferenz.Klasse1(intNr).PTest = True
End Sub

------------
Alle Menschen sind klug. Die einen vorher, die anderen nachher. (Voltaire)