Cara Penggunaan IF ElseIf Dengan Dua ComboBox Visual Basic.Net

Untuk menentukan harga mengikuti ukuran dan kode barang dengan menggunkan dua combobox kita memerlukan logika If langsung saja perhatikan source kodenya

     Private Sub cmbUkuran_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbUkuran.SelectedIndexChanged
        If cmbBatik.Text = "PKL" Then
            If cmbUkuran.Text = "S" Then
                Me.txtJenis.Text = "Pekalongan"
                Me.txtMerk.Text = "Sabrina"
                Me.txtHarga.Text = "20000"
            ElseIf cmbUkuran.Text = "M" Then
                Me.txtJenis.Text = "Pekalongan"
                Me.txtMerk.Text = "Sabrina"
                Me.txtHarga.Text = "30000"
            ElseIf cmbUkuran.Text = "L" Then
                Me.txtJenis.Text = "Pekalongan"
                Me.txtMerk.Text = "Sabrina"
                Me.txtHarga.Text = "40000"
            End If

        ElseIf cmbBatik.Text = "JOG" Then
            If cmbUkuran.Text = "S" Then
                Me.txtJenis.Text = "Jogyakarta"
                Me.txtMerk.Text = "Ramadhani"
                Me.txtHarga.Text = "25000"
            ElseIf cmbUkuran.Text = "M" Then
                Me.txtJenis.Text = "Jogyakarta"
                Me.txtMerk.Text = "Ramadhani"
                Me.txtHarga.Text = "35000"
            ElseIf cmbUkuran.Text = "L" Then
                Me.txtJenis.Text = "Jogyakarta"
                Me.txtMerk.Text = "Ramadhani"
                Me.txtHarga.Text = "45000"
            End If


        ElseIf cmbBatik.Text = "SLO" Then
            If cmbUkuran.Text = "S" Then
                Me.txtJenis.Text = "Solo"
                Me.txtMerk.Text = "Keraton"
                Me.txtHarga.Text = "27500"
            ElseIf cmbUkuran.Text = "M" Then
                Me.txtJenis.Text = "Solo"
                Me.txtMerk.Text = "Keraton"
                Me.txtHarga.Text = "37500"
            ElseIf cmbUkuran.Text = "L" Then
                Me.txtJenis.Text = "Solo"
                Me.txtMerk.Text = "Keraton"
                Me.txtHarga.Text = "47500"
            End If

        End If
    End Sub

Kalian dapat mencobanya .
Terimaksih.