Penggabungan dua combobox pada satu hasil textbox

Banyak orang awam yang baru belajar VB Net kurang paham untuk membuat hasil atau tampilan dari penggabungan dua combobox. cukup sederhana untuk membuatnya tapi perlu keringan untuk mengerjakannya, :)

langkah - langkahnya adalah sebagai berikut :

1. Buka jendela Visual Studio 2008

2. Design form sperti gambar dibawah ini

3. Beri nama masing - masing label,textbox,button dan combobox sesuai gambar diatas
4. setelah selesai memberi nama, ketikanlah program seperti yang ada dibawah ini :

    Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        merk.Items.Add("INOVA")
        merk.Items.Add("VIOS")
        merk.Items.Add("AVANZA")
        tahun.Items.Add("2009")
        tahun.Items.Add("2010")
        tahun.Items.Add("2011")
    End Sub

    Private Sub btnselesai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnselesai.Click
        End
    End Sub

    Private Sub tahun_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tahun.SelectedIndexChanged

        Call CARIHARGA()
    End Sub

    Sub CARIHARGA()
        Select Case tahun.Text
            Case "2009"
                Select Case merk.Text
                    Case "INOVA" : harga.Text = 300000000
                    Case "VIOS" : harga.Text = 350000000
                    Case "AVANZA" : harga.Text = 110000000
                End Select
            Case "2010"
                Select Case merk.Text
                    Case "INOVA" : harga.Text = 310000000
                    Case "VIOS" : harga.Text = 370000000
                    Case "AVANZA" : harga.Text = 120000000
                End Select
            Case "2011"
                Select Case merk.Text
                    Case "INOVA" : harga.Text = 330000000
                    Case "VIOS" : harga.Text = 380000000
                    Case "AVANZA" : harga.Text = 130000000
                End Select
        End Select
    End Sub
    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        cicilan.Text = Val(harga.Text) / 12
        bunga.Text = 0.02 * Val(harga.Text)
    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
        merk.Text = ""
        tahun.Text = ""
        harga.Text = ""
        cicilan.Text = ""
        bunga.Text = ""

    End Sub

    Private Sub merk_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles merk.SelectedIndexChanged
        Call CARIHARGA()
    End Sub

3. Setelah itu jalankan program anda seperti dibawah ini