Fungsi If VB.Net

Diposting sebelumnya telah dibahas perulangan , nah sekarang saya akan membahas fungsi if.
Tapi maaf yee saya gak menjelaskan defenisi fungsi if , disni saya hanya membuat cara membuat nya.
contoh nya dapat dilihat seperti yang di bawah ini :

1. Design Form seperti dibawah ini :

2. Masukan koding program seperti yang di bawah ini :
Catatan : masukan koding sesuai perintah yg dibutuhkan , jangan sampai salah meletakan koding ya guys , ntr eror program nya hehehee


Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kode.Items.Add("B01")
        kode.Items.Add("B02")

        For i = 1 To 10
            jumlahbeli.Items.Add(i)
        Next
    End Sub



Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged

        If kode.Text = "B01" Then
            Namabarang.Text = "Laptop"
            harga.Text = 3500000

        ElseIf kode.Text = "B02" Then
            Namabarang.Text = "Mouse"
            harga.Text = 60000

        End If
    End Sub


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        totalharga.Text = Val(jumlahbeli.Text * harga.Text)
    End Sub


Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        kode.Text = ""
        Namabarang.Text = ""
        harga.Text = ""
        jumlahbeli.Text = ""
        totalharga.Text = ""

    End Sub
End Class