Public Sub NewTopic()
Dim o_yeah As String
o_yeah = ""
o_yeah += "co=" + Unicode(TextBox4.Text) + "&ct=385875968&tn=ajaxThreadSubmit&word=" _
+ result(0) + "&word1=" + Trim(TextBox1.Text) + "&lm=" + result(1) + "&z=0&sc=0&cm=0" _
+ "&bs=" + bs + "&str2=&str3=" + result(2) + "&str4=" + result(3) _
+ "&bu=" + Unicode(TextBox2.Text) + "&code=1" + "&ti=" + Unicode(TextBox5.Text) _
+ "&str1=http%3A%2F%2F&ch1=on&rs1=1&_="
bytes = XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXtBytes(o_yeah)
End Sub
