Private Sub Combo_Country_Change()
If Me.Combo_Country.Text = "India" Then
Me.Combo_President.Text = "President 1"
End If
If Me.Combo_Country.Text = "China" Then
Me.Combo_President.Text = "President 2"
End If
If Me.Combo_Country.Text = "Russia" Then
Me.Combo_President.Text = "President 3"
End If
End Sub
Private Sub Form_Load()
Me.Combo_Country.Text = Me.Combo_Country.List(0)
Me.Combo_Country.AddItem ("India")
Me.Combo_Country.AddItem ("China")
Me.Combo_Country.AddItem ("Russia")
Me.Combo_President.Text = "Select a President"
End Sub
