เม้นๆ น้ะครับ สุดสวย :)

ทัม รัย อยู่ ๆ

สวัสดี ๆ

#. ไม่ได้เร่น HI5 มานานมากกกกก
เพื่อนหายหมด T^T


หนีไปเรนเฟสกันเหอะ ๆ :)

ยังตั๊ก มึงลืมกูยัง เปงงัยบ้าง คิถึง

กิลไล ยัง คับๆ

ทัก คับบ

เมร่นๆ น่ะจ่ะ สุดสวย

เม๊ลน๊า

เปนรัยก๊ แบงค์ อ๊

ทัก ทาย นะ คับ ผม อิ อิ

สวัสดีจ้า ^^

สวัสดีตอนเช้า, สาย, บ่าย, เย็น, ค่ำ
เม้นๆๆ
แล้วจะมาคอมเมนต์ให้ใหม่นะ

หึ้ยๆ

เพด พึ่ง ออก จาก โรง บาล นะ จ๊

ไป นอ น ตั้ง 2 คืน

บ่น ไร ๆ

อ่า..จร้า..คิด ใคร....?

+ อะไรๆ คนแก่ ,,
5555555555555555 5

บ้า !!!

+ อิอิ
ครั๊บ ๆ ,,

ไม่ไปแล้วว ไม่ใครให้ไป
55 55

ตั้งใจเรียน น้ะจ๊ะ ! ,, #

Private Sub CmdSelect_Click()
Dim Choice As String
Choice1 = "กินร้านไหนกันดีนะ"
If Combo1.ListIndex = 0 Then Choice1 = Choice1 + "" + Combo1.List(Combo1.ListIndex)
If Combo1.ListIndex = 1 Then Choice1 = Choice1 + "" + Combo1.List(Combo1.ListIndex)
If Combo1.ListIndex = 2 Then Choice1 = Choice1 + "" + Combo1.List(Combo1.ListIndex)
If Combo1.ListIndex = 3 Then Choice1 = Choice1 + "" + Combo1.List(Combo1.ListIndex)
Choice2 = "คุณเลือก"
If Option1.Value = True Then Choice1 = Choice1 + "" + Option1.Caption
If Option2.Value = True Then Choice1 = Choice1 + "" + Option2.Caption
If Option3.Value = True Then Choice1 = Choice1 + "" + Option3.Caption
Choice1 = Choice1 + Choice2 + "ใส่"
If Check1.Value = Checked Then Choice1 = Choice1 + Check1.Caption + "พริกป่น"
If Check2.Value = Checked Then Choice1 = Choice1 + Check2.Caption + "น้ำตาลทราย"
If Check3.Value = Checked Then Choice1 = Choice1 + Check3.Caption + "น้ำปลา"
If Check4.Value = Checked Then Choice1 = Choice1 + Check4.Caption + "น้ำส้มสายชู"
MsgBox Choice1, vbOKOnly, "เลือกรับประทาน"
Text1.Text = Choice1
Label1Caption = Choice1