27/11/2005, 03:30
|
 | | | Fecha de Ingreso: noviembre-2005
Mensajes: 53
Antigüedad: 19 años, 5 meses Puntos: 0 | |
| Haber, no se cual sera el problema pero puedes probar asi:
Dim mensaje As VbMsgBoxResult
mensaje = MsgBox("desea agregarlo?", vbYesNo, "Pregunta")
Select Case mensaje
Case Is = vbYes
Texto.Text = "No se agrego"
Case Is = vbNo
MsgBox "nose agrego"
End Select |