[سعود]

شوف المثال التالي:

PHP كود :

Public Class Form1
    Dim a As Integer = 0
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            a = InputBox("")
        Catch ex As Exception
            a = Err.Number
            If a = 0 Then
                MsgBox(Err.Number)
            Else
                If a = 13 Then
                    MsgBox("error no: " & a)
                End If
            End If
        End Try
    End Sub
End Class