Give a Gift Add as a Friend Send Message Leave Comment Add to Favorites Give 'em Five Block User

What is ジェムスくん doing now?

9 days ago · Comment »

Sex / Age

Male / 108

Location

Thailand

Birthday

December 21

Points

264 Friends

Info

http://Laffel2z.hi5.com - Send it to your friends

Sex / Age

Male / 108

Birthday

December 21

Location

Thailand

About Me

Thanks: ๏Gummykung๏ Bishop 17X ๑Gummykung๑ Soul Master 12X ๐Gummykung๐ Night Lord 18X

Interests

Favorite Music

Music Playlist at MixPod.com

hi5 Games

Groups

View All Groups

Satit Prasanmitr, PsM G.52, Maplestory Thai Hi5, MapleStory<Thai>

Journal

View All 2 Entries Add Comment

.. : Nov 24, 2008

Widgets

hi5 Gifts

Friends

View all 264 friends

Kong

Find more friends using the email contact importer.

Photo Albums

Fives

View All 20 Fives Give' em Five

Comments | View All Entries

Leave a comment for ジェムスくん

View ジェムスくん's comments with Rachit•

Nov 22 11:29 PM

Rachit• says:

If Val(TextBox1.Text) < 40 Then
TextBox2.Text = Val(TextBox1.Text) * 100
TextBox1.Text = ""
Else
TextBox2.Text = Val(TextBox1.Text) * 150
TextBox1.Text = ""
End If

Nov 16 1:09 AM

ジェムスくん says:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "ช" Then
TextBox2.Text = Val(TextBox2.Text) + 1
TextBox1.Text = ""
ElseIf TextBox1.Text = "ญ" Then
TextBox3.Text = Val(TextBox3.Text) + 1
TextBox1.Text = ""
End If
TextBox4.Text = Val(TextBox2.Text) + Val(TextBox3.Text)
If Val(TextBox7.Text) = 13 Then
TextBox5.Text = Val(TextBox5.Text) + 1
TextBox7.Text = ""
ElseIf Val(TextBox7.Text) = 14 Then
TextBox5.Text = Val(TextBox5.Text) + 1
TextBox7.Text = ""
ElseIf Val(TextBox7.Text) = 15 Then
TextBox5.Text = Val(TextBox5.Text) + 1
TextBox7.Text = ""
ElseIf Val(TextBox7.Text) = 16 Then
TextBox6.Text = Val(TextBox6.Text) + 1
TextBox7.Text = ""
ElseIf Val(TextBox7.Text) = 17 Then
TextBox6.Text = Val(TextBox6.Text) + 1
TextBox7.Text = ""
ElseIf Val(TextBox7.Text) = 18 Then
TextBox6.Text = Val(TextBox6.Text) + 1
TextBox7.Text = ""
Else
MsgBox("ป้อนข้อมูลใหม่")
TextBox1.Text = ""
TextBox7.Text = ""
End If

End Sub
End Class

View ジェムスくん's comments with PeTcH29

Nov 16 12:16 AM

PeTcH29 says:

ดีๆๆค้าบ

Nov 16 12:00 AM

ジェムスくん says:

TextBox6.Text = Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) + Val(TextBox4.Text) + Val(TextBox5.Text)
If Val(TextBox6.Text) >= 80 Then
TextBox7.Text = 4
ElseIf Val(TextBox6.Text) >= 74.5 Then
TextBox7.Text = 3.5
ElseIf Val(TextBox6.Text) >= 69.5 Then
TextBox7.Text = 3
ElseIf Val(TextBox6.Text) >= 64.5 Then
TextBox7.Text = 2.5
ElseIf Val(TextBox6.Text) >= 59.5 Then
TextBox7.Text = 2
ElseIf Val(TextBox6.Text) >= 54.5 Then
TextBox7.Text = 1.5
ElseIf Val(TextBox6.Text) >= 49.5 Then
TextBox7.Text = 1
Else
TextBox7.Text = 0
End If

View ジェムスくん's comments with F o n F y z S

Nov 15 10:31 PM

F o n F y z S says:

ดีจ้าเจมป่ะ

View ジェムスくん's comments with JenviT♥

Nov 14 9:19 AM

JenviT♥ says:

กุ ก้ ส่งแว้ว
ไม่อยากจะ คุย เว้ย

View ジェムスくん's comments with JenviT♥

Nov 13 11:00 PM

JenviT♥ says:

หอก

งานคอม ละ เสด ยัง หอก หมา

View ジェムスくん's comments with JenviT♥

Nov 12 9:52 PM

JenviT♥ says:

....

View ジェムスくん's comments with ♪♫ Namsaiiz ♥

Nov 11 7:39 AM

♪♫ Namsaiiz ♥ says:

thanks 4 the add ja~~

ใครเอ่ยยยย ??
เราน้ำใสนะ :))
ยินดีที่ได้รู้จักจ้า...

View ジェムスくん's comments with JenviT♥

Nov 2 12:39 AM

JenviT♥ says:

If TextBox1.Text = "เหลือง" Then
TextBox2.Text = "สีเหลือง"
End If
If TextBox1.Text = "แดง" Then
TextBox2.Text = "สีแดง"
End If
If TextBox1.Text = "เขียว" Then
TextBox2.Text = "สีเขียว"
End If
If TextBox1.Text = "น้ำเงิน" Then
TextBox2.Text = "สีน้ำเงิน"
End If
If TextBox1.Text <> "เหลือง" And TextBox1.Text <> "แดง" And TextBox1.Text <> "เขียว" And TextBox1.Text <> "น้ำเงิน" Then
MsgBox("ข้อมูลผิดพลาดกรอกใหม่ครับ")
End If
End Sub

Nov 2 12:26 AM

ジェムスくん says:

If TextBox1.Text = "ช" Then
TextBox2.Text = "ชาย"
End If
If TextBox1.Text = "ญ" Then
TextBox2.Text = "หญิง"
End If

If TextBox1.Text <> "ช" And TextBox1.Text <> "ญ" Then
TextBox2.Text = ""

MsgBox("ข้อมูลผิดพลาดคุณกรอกได้เฉพาะ ชและญ")
End If

Nov 1 11:23 PM

ジェムスくん says:

อันที่1
If TextBox1.Text <> "" Then
Button1.Enabled = True
Else
Button1.Enabled = False

อันที่2
Dim resp As String
resp = MsgBox("นักเรียนเป็นดาราหรือไม่", vbYesNo + vbQuestion)
If resp = vbYes Then
MsgBox("คุณหล่อมากนะ")
Else
MsgBox("คุณน่าจะไม่หล่อ")
End If

View ジェムスくん's comments with JenviT♥

Oct 31 6:09 AM

JenviT♥ says:

รถไฟฟฟ้ารางเดียวนะมึง
ตะหาก

ตู ยังไม่ได้ดู เยย วะ ดูแต่เฉือน (หนังเกย์ - -)