Fehlersuche

Public Class Form1
    Dim Listenpreis, Lieferkosten, Endpreis As Double

    Private Sub btn_beenden_Click(sender As Object, e As EventArgs) Handles btn_beenden.Click
        Close()
    End Sub

'AB HIER BEGINNT DIE FEHLERSUCHE !
    Private Sub lbl_endpreis_Click(sender As Object, e As EventArgs) Handles lbl_endpreis.Click
        lbl_endpreis.Text = 0
        txt_lieferkosten.Text = "
        txt_listenpreis.Text = 0


    Private Sub btn_rechnen_Click(sender As Object, e As EventArgs) Handles btn_rechnen.Click
        'Eingabe
        txt_listenpreis.Text = Listenpreis
        txt_lieferkosten.Text = Lieferkosten
        'Verarbeitung
        Endpreis = Listenpreis * Lieferkosten
		Endpreis = Listenpreis
        'Ausgabe
        lbl_endpreis.Text = Listenpreis
    End Sub


End Class