02/10/2004, 16:17
|
| | | Fecha de Ingreso: diciembre-2001 Ubicación: Morelia, México.
Mensajes: 312
Antigüedad: 23 años, 2 meses Puntos: 0 | |
| Creo que la falla está aquí:
If (Val(Reg1.Text) = (numSerie + 896576537)) And (Val(Reg2.Text) = (numSerie + 167235485)) And (Val(Reg3.Text) = (numSerie + 349824653)) Then
Unload Me
frmMain.Show
Exit Sub
Else
Ojo.. te falta poner el EXIT SUB, porque si no continúa cargando las demás rutinas y por eso te da el error, el Unload Me o el .Show no te terminan el proceso, el Exit Sub, si.
Pura vida!! |