combobox

[-rommel_]

asi como te respondieron... si no pones una condicion al momento de cambiar te va a resultar una redundancia... y un bucle de control...
te paso este codigo...

Código vb:

Dim Pos as Integer
Dim Cambio as Boolean
 
Private Sub Combo1_Click()
   Dim iRpta as Integer
   If Pos <> Me.Combo1.ListIdex And Cambio = False Then
        iRpta = MsgBox("Algo", vbYesNo)
        If iRpta = vbYes Then
           Pos = Me.Combo1.ListIdex
        Else
           Cambio = True
           Me.Combo1.ListIdex = Pos
        End If
   End If
   Cambio = False
End Sub
 

Creo que si funciona