Lista E

Public Class Form1
    Dim Total As Decimal
    Dim Subtotal As Decimal
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Total = CInt(txtv1.Text) * CInt(txtv2.Text)

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        ListBox1.Items.Clear()
        ListBox2.Items.Clear()
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        ListBox1.Items.Add(txtv3.Text)
    End Sub

    Private Sub Txtv2_Leave(sender As Object, e As EventArgs) Handles txtv2.Leave
        Subtotal = CInt(txtv1.Text) * CInt(txtv2.Text)
    End Sub
End Class