Ver Mensaje Individual
  #9 (permalink)  
Antiguo 30/10/2006, 08:24
nolo41
 
Fecha de Ingreso: julio-2006
Mensajes: 98
Antigüedad: 17 años, 10 meses
Puntos: 0
OK, gracias ya entendi !!!

Rutina de error:
=============
Dim a As System.DivideByZeroException
a = New System.DivideByZeroException

Dim b As System.Exception
b = New Exception

If Equals(a.GetType, ParamErreur.GetType) Then
MessageBox.Show("division cero")
End If

If Equals(b.GetType, ParamErreur.GetType) Then
MessageBox.Show("exception gral")
End If