Ejemplo de SelectedIndexChanged Visual basic

Este evento se produce cuando el SelectedIndex ha cambiado.

En el siguiente problema utilizare este evento para solucionarlo:

1. La tienda Pepeganga vende 4 tipos de pantalones cuyos precios son los siguientes:

Pantalón Tipo A 850,25

Pantalón Tipo B 720,00

Pantalón Tipo C 425,50

Pantalón Tipo D 308,75

Se tiene como datos de entrada: nombre del cliente, tipo de pantalón (A, B , C o D) y cantidad. Se pide calcular: nombre del cliente, cantidad, tipo de pantalón y monto de la compra.

En el diseño: 

Ocuparíamos 7 labels, 2 textboxt, 2 botones y 1 comboboxt en el cual aplicara el evento.

Dentro del form este seria su código:

Public Class Form1
    Dim total As Integer
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        total = 0
        'asignadole los nombre 
        ComboBox1.Items.Add("Tipo A")
        ComboBox1.Items.Add("Tipo B")
        ComboBox1.Items.Add("Tipo C")
        ComboBox1.Items.Add("Tipo D")

    End Sub

    

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        'Utilizando este evento le asigno los valores al label  para
        ' que asi se muestren 
        If ComboBox1.Text = "Tipo A" Then
            Label4.Text = 85025
        ElseIf ComboBox1.Text = "Tipo B" Then
            Label4.Text = 72000
        ElseIf ComboBox1.Text = "Tipo C" Then
            Label4.Text = 42550
        ElseIf ComboBox1.Text = "Tipo D" Then
            Label4.Text = 30875
        End If
    End Sub

    
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.TextLength <> 0 Then
            MsgBox("Muchas gracias por la compra " + TextBox1.Text)

            Me.Close() 'opcional 
        Else
            MsgBox("Introdusca su nombre")
        End If


    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        '             Precio      * Cantidad
        Label6.Text = Label4.Text * TextBox2.Text + total
        total = CInt(Label6.Text)

    End Sub
End Class

                                                           

                                                               

vb.net