Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ComboBox2.SelectedIndex = 0
        ComboBox1.SelectedIndex = 0
 
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As _
      EventArgs) Handles ComboBox1.SelectedIndexChanged, _
      ComboBox2.SelectedIndexChanged
        If ComboBox1.SelectedIndex = 0 And ComboBox2.SelectedIndex = 0 Then
            Label3.Text = "1795"
            Label4.Text = Label3.Text - 19
        End If
        If ComboBox1.SelectedIndex = 0 And ComboBox2.SelectedIndex = 1 Then
            Label3.Text = "1642"
            Label4.Text = Label3.Text - 19
        End If
        If ComboBox1.SelectedIndex = 0 And ComboBox2.SelectedIndex = 2 Then
            Label3.Text = "1315"
            Label4.Text = Label3.Text - 19
        End If
        If ComboBox1.SelectedIndex = 0 And ComboBox2.SelectedIndex = 3 Then
            Label3.Text = "1162"
            Label4.Text = Label3.Text - 19
        End If
        If ComboBox1.SelectedIndex = 0 And ComboBox2.SelectedIndex = 4 Then
            Label3.Text = "1009"
            Label4.Text = Label3.Text - 19
        End If
        If ComboBox1.SelectedIndex = 0 And ComboBox2.SelectedIndex = 5 Then
            Label3.Text = "635"
            Label4.Text = Label3.Text - 19
        End If
        If ComboBox1.SelectedIndex = 0 And ComboBox2.SelectedIndex = 6 Then
            Label3.Text = "493"
            Label4.Text = Label3.Text - 19
        End If
        If ComboBox1.SelectedIndex = 0 And ComboBox2.SelectedIndex = 7 Then
            Label3.Text = "351"
            Label4.Text = Label3.Text - 19
        End If
        If ComboBox1.SelectedIndex = 0 And ComboBox2.SelectedIndex = 8 Then
            Label3.Text = "209"
            Label4.Text = Label3.Text - 19
        End If
    End Sub
End Class