Private Sub ComboBox1_Change()
  SlideShowWindows(1).View.GotoSlide (ComboBox1.ListIndex + 2)
End Sub

Private Sub ComboBox1_DropButtonClick()
 If ComboBox1.ListCount = 0 Then
  ComboBox1.AddItem "OBJETIVOS"
  ComboBox1.AddItem "PRIMER OBJETIVO"
  ComboBox1.AddItem "SEGUNDO OBJETIVO"
  ComboBox1.AddItem "TERCER OBJETIVO"
  ComboBox1.AddItem "CUARTO OBJETIVO"
  ComboBox1.AddItem "QUINTO OBJETIVO"
 End If
End Sub