Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
Try
Dim num2 As Integer
ProjectData.ClearProjectError
Dim num As Integer = 2
Me.RR.Text = (Conversions.ToString(Me.Form1.Text.Length) & Me.Form1.Text.Substring(5) & Conversions.ToString(Me.Form1.GetHashCode) & Me.Form1.Text.Substring(4))
Me.RR.Text = String.Concat(New String() { Me.RR.Text, Me.RR.Text, Me.RR.Text, Me.RR.Text, Me.RR.Text, Me.RR.Text, Me.RR.Text, "kdsahjfdshauiuuhjzhjzkdsahjzkdsahjfdsh" })
Do While (Me.RR.Text = "19oofua8ew4fadsa41149443soofua8ew4fadsa19oofua8ew4fadsa41149443soofua8ew4fadsa19oofua8ew4fadsa41149443soofua8ew4fadsa19oofua8ew4fadsa41149443soofua8ew4fadsa19oofua8ew4fadsa41149443soofua8ew4fadsa19oofua8ew4fadsa41149443soofua8ew4fadsa19oofua8ew4fadsa41149443soofua8ew4fadsakdsahjfdshauiuuhjzhjzkdsahjzkdsahjfdsh")
MessageBox.Show("CORR.textECT!")
Me.Close
Loop
Me.Close
Label_0127:
Me.Close
If (num2 <> 0) Then
ProjectData.ClearProjectError
End If
Return
Label_0131:
num2 = -1
Select Case num
Case 0, 1
goto Label_0167
Case 2
goto Label_0127
End Select
Catch obj1 As Object When (?)
ProjectData.SetProjectError(DirectCast(obj1, Exception))
goto Label_0131
End Try
Label_0167:
Throw ProjectData.CreateProjectError(-2146828237)
End Sub
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You cannot attach files in this forum You cannot download files in this forum