01/06/2004, 05:38
|
| | | Fecha de Ingreso: mayo-2004 Ubicación: guipuzcoa
Mensajes: 83
Antigüedad: 20 años, 11 meses Puntos: 0 | |
| vale perdona otra vez este es el código del boton:Private Sub cmdactivar_Click()
'Dim result As Variant
AppActivate (retval) 'para que la ventana de la aplicacion este activada'
Dim y As Long
For y = 0 To lst1.ListCount - 1
If lst1.Selected(y) = True Then
'ESTE ES EL ITEM SELECCIONADO
EnableMenuItem hMenu, y, MF_ENABLED Or MF_BYPOSITION
End If
Next
Ahora si que esta bien puesto. Gracias. |