[amgad525]

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Try

        Dim z As Double
        z = "abc"

    Catch ex As Exception
        MsgBox(ex.Message)
    End Try

End Sub 


PHP كود :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    On Error GoTo errCatch

    Dim z As Double
    z = "abc"

    Exit Sub
errCatch:
    MsgBox(Err.Description)

End Sub