Nuevo Foro de programacion
0 Usuarios y 1 Visitante están viendo este tema.
Private Sub List1_Click() If List1.ListIndex = 3 Then 'MsgBox "Cannot select this item!" List1.ListIndex = List1.ListIndex + 1: Exit Sub End IfEnd Sub