Public Class Form1
    Private Mx As Integer
    Public Px As Integer
 
    Private Sub Form1_Load(...) Handles MyBase.Load
        Mx = 1
        Px = 2
    End Sub
 
    Private Sub cmdStartUnterformular_Click(...
            ) Handles ...
       [u] Form2.ShowDialog()
    End Sub
 
    Private Sub cmdEndeHauptformular_Click(...
            ) Handles ...
        Me.Close()
    End Sub

Gruss Caddy