Public Class clsFenster
 
    Public Shared Bezeichnung() As String
    Public Shared h_LU(), h_RU(), h_LO(), h_RO(), A_LU(), A_RU(), A_LO(), A_RO( _
      ) As Double
    Public Shared Aktiv() As Boolean
 
End Class

Public Class Konfigurieren
    Inherits System.Windows.Forms.Form
 
    Dim Fenster As New clsFenster
 
    Private Sub butClear_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles butClear.Click
        txtLabel.Text = ""
        txth_RO.Text = ""
        txth_LU.Text = ""
        txtA_RO.Text = ""
        txtA_LU.Text = ""
        chkAktiv.Checked = False
        With Fenster
            .Bezeichnung(position) = txtLabel.Text
            .A_LU(position) = CDbl(txtA_LU.Text)
            .A_RO(position) = CDbl(txtA_RO.Text)
            .h_LU(position) = CDbl(txth_LU.Text)
            .h_RO(position) = CDbl(txth_RO.Text)
            .Aktiv(position) = False
        End With

          .Bezeichnung(position) = txtLabel.Text