Private Sub NeuesFenster_NewWindow2(New As Object, Cancel As Boolean)
    Dim frmNeu As frmTest
    Set frmNeu = New frmTest
 
    frmNeu.WindowState = vbNormal
    frmNeu.Top = 0
    frmNeu.Left = 0
 
    Set New = frmNew.NeuesFenster.Object
    frmNeu.Show
End Sub