Public Class Form1
 
    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button3.Click
        End
    End Sub
 
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button2.Click
        Preise.Show()
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
 
 
        TextBox6.Text = Val(My.Settings.preisccm) * Val(TextBox1.Text)
        TextBox8.Text = Val(My.Settings.preismöbel) * Val(TextBox2.Text)
        TextBox7.Text = Val(My.Settings.preiskm) * Val(TextBox5.Text)
        TextBox9.Text = Val(My.Settings.preisperson) * Val(TextBox3.Text)
        Label14.Text = Val(TextBox6.Text) + Val(TextBox8.Text) + Val( _
          TextBox7.Text) + Val(TextBox9.Text)
 
    End Sub
 
 
End Class

Public Class Preise
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        My.Settings.preisccm = TextBox1.Text
        My.Settings.preiskm = TextBox4.Text
        My.Settings.preismöbel = TextBox2.Text
        My.Settings.preisperson = TextBox3.Text
        My.Settings.Save()
        MsgBox("Preise gespeichert", MsgBoxStyle.Information)
    End Sub
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button2.Click
        Me.Close()
    End Sub
 
    Private Sub Preise_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        Me.TextBox1.Text = My.Settings.preisccm
        Me.TextBox2.Text = My.Settings.preismöbel
        Me.TextBox3.Text = My.Settings.preisperson
        Me.TextBox4.Text = My.Settings.preiskm
    End Sub
End Class