Kod:
Public Class Form1
Dim i = 0
Dim reset As String = 0
Private Sub islem()
On Error Resume Next
i += 1
If (i >= 0) < Val(i) Then
Label1.Text = i
Else
If (i <= 999999999) > Val(i) Then
Label1.Text = reset
End If
End If
End Sub