Ardian89

and pw is : gtainside.com

I've seen you code it's simpe... nobodys want buy your gaycode here is it : Dim str6 As String = Conversions.ToString(Registry.LocalMachine.OpenSubKey("SOFTWARE\Rockstar Games\Grand Theft Auto IV").GetValue("InstallFolder"))
Me.Button3.Enabled = False
Me.ComboBox1.Enabled = False
Me.TabControl1.Enabled = True
Dim reader As New StreamReader((str6 & "\common\data\handling.dat"))
Me.TextBox1.Text = ""
Do While (reader.Peek <> -1)
Dim str2 As String = reader.ReadLine
If str2.Contains(Me.ComboBox1.Text) Then
Me.TextoOriginal.Text = str2
Exit Do
End If
Loop
Me.TextBox.Text = ""
Dim str As String = ""
Me.TextBox0.Text = str
Me.TextBox1.Text = str
Me.TextBox2.Text = str
Me.TextBox3.Text = str
Me.TextBox4.Text = str
Me.TextBox5.Text = str
Me.TextBox6.Text = str
Me.TextBox7.Text = str
Me.TextBox8.Text = str
Me.TextBox9.Text = str
Me.TextBox10.Text = str
Me.TextBox11.Text = str
Me.TextBox12.Text = str
Me.TextBox13.Text = str
Me.TextBox14.Text = str
Me.TextBox15.Text = str
Me.TextBox16.Text = str
Me.TextBox17.Text = str
Me.TextBox18.Text = str
Me.TextBox19.Text = str
Me.TextBox20.Text = str
Me.TextBox21.Text = str
Me.TextBox22.Text = str
Me.TextBox23.Text = str
Me.TextBox24.Text = str
Me.TextBox25.Text = str
Me.TextBox26.Text = str
Me.TextBox27.Text = str
Me.TextBox28.Text = str
Me.TextBox29.Text = str
Me.TextBox30.Text = str
Me.TextBox31.Text = str
Me.TextBox32.Text = str
Me.TextBox33.Text = str
Me.TextBox34.Text = str
Me.TextBox35.Text = str
Me.TextBox36.Text = str
Me.ExportTXT.Text = str
Dim array As String() = Me.TextoOriginal.Text.Split(New Char() { ChrW(9) })
Dim num3 As Integer = Information.UBound(array, 1)
Dim i As Integer = 0
Do While (i <= num3)
Me.TextBox.Text = (Me.TextBox.Text & array(i) & " ")
i += 1
Loop
Dim text As String = Me.TextBox.Text
Do While [text].Contains(" ")
If [text].Contains(" ") Then
Do While [text].Contains(" ")
[text] = [text].Replace(" ", " ")
Loop
End If
If [text].Contains(" ") Then
Do While [text].Contains(" ")
[text] = [text].Replace(" ", " ")
Loop
End If
If [text].Contains(" ") Then
Do While [text].Contains(" ")
[text] = [text].Replace(" ", " ")
Loop
End If
If [text].Contains(" ") Then
Do While [text].Contains(" ")
[text] = [text].Replace(" ", " ")
Loop
End If
Loop
Me.TextBox.Text = Strings.Trim([text])
Dim strArray As String() = Me.TextBox.Text.Split(New Char() { " "c })
Dim num4 As Integer = Information.UBound(strArray, 1)
Dim j As Integer = 0
Do While (j <= num4)
Me.TextBox0.Text = strArray(0)
Me.TextBox1.Text = strArray(1)
Me.TextBox2.Text = strArray(2)
Me.TextBox3.Text = strArray(3)
Me.TextBox4.Text = strArray(4)
Me.TextBox5.Text = strArray(5)
Me.TextBox6.Text = strArray(6)
Me.TextBox7.Text = strArray(7)
Me.TextBox8.Text = strArray(8)
Me.TextBox9.Text = strArray(9)
Me.TextBox10.Text = strArray(10)
Me.TextBox11.Text = strArray(11)
Me.TextBox12.Text = strArray(12)
Me.TextBox13.Text = strArray(13)
Me.TextBox14.Text = strArray(14)
Me.TextBox15.Text = strArray(15)
Me.TextBox16.Text = strArray(&H10)
Me.TextBox17.Text = strArray(&H11)
Me.TextBox18.Text = strArray(&H12)
Me.TextBox19.Text = strArray(&H13)
Me.TextBox20.Text = strArray(20)
Me.TextBox21.Text = strArray(&H15)
Me.TextBox22.Text = strArray(&H16)
Me.TextBox23.Text = strArray(&H17)
Me.TextBox24.Text = strArray(&H18)
Me.TextBox25.Text = strArray(&H19)
Me.TextBox26.Text = strArray(&H1A)
Me.TextBox27.Text = strArray(&H1B)
Me.TextBox28.Text = strArray(&H1C)
Me.TextBox29.Text = strArray(&H1D)
Me.TextBox30.Text = strArray(30)
Me.TextBox31.Text = strArray(&H1F)
Me.TextBox32.Text = strArray(&H20)
Me.TextBox33.Text = strArray(&H21)
Me.TextBox34.Text = strArray(&H22)
Me.TextBox35.Text = strArray(&H23)
Me.TextBox36.Text = strArray(&H24)
j += 1
Loop
Me.Label2.Text = "Data Loaded"
Me.Timer1.Enabled = True
End Sub