Text1.Text = "象斷線的風箏一樣徒勞地掙扎了兩下，然后無可救藥的落進了對方的溫柔陷阱……"
Case "求愛"
Text1.Text = "突然大喊一聲，這是我的第三千八百次初戀，求求你，接受我的這一小片癡情吧！"
Case "男人的沖動"
Text1.Text = "強忍住煩躁和一剎那的烈火焚心，從房間里沖到花園，果斷地縱身跳進冰涼的游泳池中，大家驚訝的發現，不一會兒，諾大一個游泳池的水居然全沸騰了！"
Case "女人的沖動"
Text1.Text = "緊緊咬住自己的嘴唇，眼睛象水滴一樣生動地注視著對方，用可以摧毀一個國家，殺死一個國王，揉碎一顆心的聲音說道，云想衣裳，花想容，我又怎么會不想呢。"
Case "比酷"
Text1.Text = "刷的抽出一把閃閃發光的戒刀，一刀將自己的大好頭顱切了下來，嘴里還不停的嘀咕，和我比酷，誰能比我酷？"
Case "想自殺"
Text1.Text = "突然拔出一把手槍，指著自己的頭，淚眼婆娑的看著大家。"
Case "要砍人"
Text1.Text = "狂笑三聲，從身后抽出一柄斧頭，大喊著，天下沒有公理了，讓我來伸張正義！"
Case "喝醉了"
Text1.Text = "渾身酒氣掙扎著踉蹌走了兩步，突然不留神，一個跟頭直直插進了路邊的水溝里。"
Case "吐舌頭"
Text1.Text = "在血盤大口里吐了吐青白的舌頭! "
Case "想到了"
Text1.Text = "重重地拍了一下腦袋, 終于想到了! "
Case "生氣"
Text1.Text = "作出生氣的表情!火冒三丈～想要打人～ "
Case "拍巴掌"
Text1.Text = "使勁地拍巴掌,啪啪啪啪啪.....拍得手都紅起來了! "
Case "臉紅"
Text1.Text = "臉都紅了,恨沒有地洞, 好鉆進去躲起來 :~ "
Case "羞答答地吻"
Text1.Text = "象朵含羞草一樣躲了起來，又突然跑回來，輕輕地、快快地吻了對方一下，轉身就跑了。"
Case "狂吻對方"
Text1.Text = "象暴風雨一樣撲了過來，嘴里說著，不能沒有你，……可惜，腳下一滑，一嘴吻在對方的鞋幫子上。"
Case "道別1"
Text1.Text = "向在場的人道別: 走咯! 我會想你們的"
Case "道別2"
Text1.Text = "如果你們記得我，別忘記給我留言哦！"
Case "道別3"
Text1.Text = "飄啊飄的一段情，有雨也有風……驀然回首你仍在，浪漫紅塵中……我走了……"
Case "道別4"
Text1.Text = "凄婉地說道：“世上沒有不散的宴席，我先走一步了，大家保重?！?"
Case "道別5"
Text1.Text = "向大家說 BYE BYE! 千山我獨行... 不必相送."
Case "拍胸脯"
Text1.Text = "把胸脯拍得噼啪響：“武林中拳頭大的說話，有種的上來比劃比劃！” "
Case "扮死"
Text1.Text = "兩眼翻白，腿兒蹬了幾下，腦袋一歪，死了。 "
Case "想破頭"
Text1.Text = "想啊想，結果把腦袋給想破了，白白的腦漿流了一地! "
Case "害怕"
Text1.Text = "被嚇得雙腿直哆嗦. "
Case "昏倒"
Text1.Text = "口吐白沫，昏倒在地 "
Case "問好(girl)"
Text1.Text = "盈盈一拜,笑笑地說:各位大哥,小女子有禮了.. "
Case "問好(boy)"
Text1.Text = "大咧咧地說:大姐姐,小姐姐!本公子這廂有禮啦!"
Case "問好1"
Text1.Text = "環顧四周，全聊天室山河一片大好，于是清了清喉嚨：“同志們好。” "
Case "感動"
Text1.Text = "感動極了，兩行熱淚奪眶而出。 "
Case "喊冤"
Text1.Text = "一把眼淚一把鼻涕地喊：冤枉啊!! "
Case "自言自語"
Text1.Text = "自言自語道:“我,先天下人之憂而憂, 后天下人之樂而樂...這個這個好象不太妥” "
Case "逃跑"
Text1.Text = "大叫一聲：“風緊，扯呼”,撒開腿就跑，片刻就消失在一片茫茫白霧中 "
Case "興奮地唱"
Text1.Text = "興奮地唱：“我是一只小鴨子，伊呀伊呀喲！” "
Case "深情地唱"
Text1.Text = "深情地唱道：“我早已為你種下，九百九十九朵玫瑰。”"
Case "大哭"
Text1.Text = "咚一聲! 坐在地上哇啦大哭~ "
Case "笑"
Text1.Text = "笑得象花兒一樣 "
Case "傻笑"
Text1.Text = "露出像白癡般的笑容....:O~ "
Case "狂笑"
Text1.Text = "向天狂笑：“普天之下，竟然沒有我的對手..."
Case "凝視"
Text1.Text = "深情的凝視前方 "
Case "喝悶酒"
Text1.Text = "躲在一邊一聲不吭，獨個兒大口大口地喝著悶酒。"
Case "害羞"
Text1.Text = "低著頭，玩弄著自己的手指，羞得滿臉通紅"
Case "自吻"
Text1.Text = "正瘋狂的親吻著鏡子中的自己..."
Case "敬酒"
Text1.Text = "丟幾罐冰涼的啤酒給大家，然后說:「干啦 !」"
Case "跳舞"
Text1.Text = "像發了瘋似的一個人在聊天室中跳起舞來"
Case "哭泣"
Text1.Text = "躲在聊天室的角落偷偷哭泣"
Case "念經"
Text1.Text = "嘴里念念有辭的,好像正在背三字經."
Case "自卑"
Text1.Text = "對自己的長像極度不滿意, 決定向雙親提出抗議."
Case "喊加油"
Text1.Text = "大喊加油~ 加油~"
Case "發狗瘋"
Text1.Text = "像瘋狗似的見人就吠. 嗷~嗚~"
Case "賓果"
Text1.Text = "大聲叫了一聲: 賓果!"
Case "牙癢"
Text1.Text = "牙齒又在癢...想找跟狗骨頭咬咬."
Case "玩蟑螂"
Text1.Text = "像只小貓似的正在凌虐剛從聊天室抓到的蟑螂."
 Case "喝咖啡"
Text1.Text = "拿起一杯香香醇醇的咖啡咖啡喝了一口. 嗯, 好香!"
Case "頭壞"
Text1.Text = "認為自己一定是頭殼壞掉了,才會有這樣的言行."
Case "狗腿"
Text1.Text = "覺得自己的狗腿功夫已經到了爐火純青的地步,只差還沒出國比賽拿金牌而已."
Case "頭暈"
Text1.Text = "最近一直覺得自己頭暈目眩,惡心想吐,不知是不是....."
Case "發抖"
Text1.Text = "害怕地發起抖來，感覺背脊發涼, 頭皮發麻~"
Case "清高"
Text1.Text = "一直覺得自已不笨,只是凡人不能理解自己想法而已."
Case "吻凳"
Text1.Text = "四處張望了一下,然后對著凳子深情款款地吻了一下."
Case "傻笑"
Text1.Text = "不知想到了什么,一個人在那吃吃的傻笑."
Case "奸笑"
Text1.Text = "嘿嘿嘿....地奸笑了幾聲，八成想到什么壞事頭上。"


End Select
End Sub

Private Sub Command1_Click()
'發送信息
If Text1.Text = "" Then Exit Sub
Dim tColor As String, tBiaoQing As String
Select Case cmbFontColor.Text
Case "絕對黑色"
tColor = "&H000000"
Case "深藍憂郁"
tColor = "&H000088"
Case "草原之藍"
tColor = "&Hff0005"
Case "橄欖樹綠"
tColor = "&H008800"
Case "灰藍種族"
tColor = "&H008888"
Case "海洋之藍"
tColor = "&H0088ff"
Case "綠色回憶"
tColor = "&H00a010"
Case "藍色月光"
tColor = "&H1100ff"
Case "夜幕低垂"
tColor = "&H111111"
Case "灰色軌跡"
tColor = "&H333333"
Case "春草青青"
tColor = "&H50b000"
Case "暗夜興奮"
tColor = "&H880000"
Case "發亮藍紫"
tColor = "&H8800ff"
Case "卡其制服"
tColor = "&H888800"
Case "倫敦灰霧"
tColor = "&H888888"
Case "興份過藍"
tColor = "&H8888ff"
Case "紫的拘謹"
tColor = "&Haa00cc"
Case "流金歲月"
tColor = "&Haaaa00"
Case "卡布其諾"
tColor = "&Hccaa00"
Case "正宗喜紅"
tColor = "&Hff0000"
Case "愛的暗示"
tColor = "&Hff0088"
Case "紅的發紫"
tColor = "&Hff00ff"
Case "黃金歲月"
tColor = "&Hff8800"
Case "紅袍飄飄"
tColor = "&H0000ff"
Case "紫金繡帖"
tColor = "&Hff88ff"
Case "焚心似火"
tColor = "&Hee0005"
Case "紅粉佳人"
tColor = "&Hee01ff"
Case "我不知道"
tColor = "&H3388aa"
Case Else
tColor = "&H" & cmbFontColor.Text
End Select

Select Case cmbBiaoQ.Text
Case "選擇表情"
tBiaoQing = "說"
Case "平靜"
tBiaoQing = "平靜的說"
Case "慌亂"
tBiaoQing = "驚慌失措的說"
Case "高興"
tBiaoQing = "很高興的說"
Case "瀟灑"
tBiaoQing = "瀟灑的說"
Case "微微笑"
tBiaoQing = "微微笑的說"
Case "惋惜"
tBiaoQing = "惋惜的說"
Case "深情"
tBiaoQing = "深情的說"
Case "大笑叁聲"
tBiaoQing = "哈！哈！哈！的笑著說"
Case "嘻笑"
tBiaoQing = "笑嘻嘻說"
Case "幸災樂禍"
tBiaoQing = "幸災樂禍的說"
Case "眉飛色舞"
tBiaoQing = "眉飛色舞的說"
Case "陰陽怪氣"
tBiaoQing = "陰陽怪氣的說"
Case "哭天搶地"
tBiaoQing = "哭天搶地的說"
Case "牢騷滿腹"
tBiaoQing = "牢騷滿腹的說"
Case "理屈詞窮"
tBiaoQing = "理屈詞窮的說"
Case "江郎才盡"
tBiaoQing = "江郎才盡的說"
Case "兇神惡煞"
tBiaoQing = "兇神惡煞的說"
Case "眉歪眼斜"
tBiaoQing = "眉歪眼斜的說"

Case "牽手"
tBiaoQing = "輕輕牽著對方的手，小聲的說"
Case "甩手"
tBiaoQing = "一把甩掉對方的手，惡恨恨的說"

Case "輕蔑"
tBiaoQing = "滿臉俱是輕蔑不屑之色的說"
Case "目光凜然"
tBiaoQing = "目光凜然的說"
Case "聲嘶力竭"
tBiaoQing = "聲嘶力竭的說"
Case "意亂情迷"
tBiaoQing = "意亂情迷的說"
Case "臉色鐵青"
tBiaoQing = "臉色鐵青的說"
Case "失魂落魄"
tBiaoQing = "失魂落魄的說"
Case "怨毒"
tBiaoQing = "怨毒的說"
Case "目光呆滯"
tBiaoQing = "目光呆滯的說"
Case "柔聲"
tBiaoQing = "柔聲的說"
Case "眼波動人"
tBiaoQing = "眼波晶瑩明亮的說"
Case "怒不可遏"
tBiaoQing = "目光盡赤，怒不可遏的說"
Case "嬌笑"
tBiaoQing = "嬌笑起來的說"
Case "茫然"
tBiaoQing = "茫然的說"

Case "打耳光"
tBiaoQing = "給了對方一耳光，大罵道"
Case "奸笑"
tBiaoQing = "奸笑著說"
Case "扮奴才像"
tBiaoQing = "奴才嘴臉十足的說"
Case "毛手毛腳"
tBiaoQing = "毛手毛腳的說"
Case "得意"
tBiaoQing = "得意洋洋的說"
Case "耍無賴"
tBiaoQing = "一臉無賴潑皮樣子的說"
Case "嘟嘴"
tBiaoQing = "嘟著嘴的說"
Case "拋媚眼"
tBiaoQing = "拋去一個媚眼，然后說"
Case "抱住對方哭"
tBiaoQing = "一把將對方抱住，哭哭涕涕的說"

Case "快要哭"
tBiaoQing = "快要哭的說"

Case "拳打腳踢"
tBiaoQing = "拳打腳踢的說"

Case "不懷好意"
tBiaoQing = "不懷好意的說"
Case "二楞子"
tBiaoQing = "二球勁十足的說"
Case "遺憾"
tBiaoQing = "遺憾的說"

Case "訝異"
tBiaoQing = "瞪大了眼睛 , 很訝異的說"

Case "幸福"
tBiaoQing = "幸福的說"

Case "翻箱倒柜"
tBiaoQing = "翻箱倒柜的說"

Case "悲傷"
tBiaoQing = "悲傷的說"

Case "淫淫笑"
tBiaoQing = "淫淫笑的說"

Case "流口水"
tBiaoQing = "流口水的說"

Case "正氣凜然"
tBiaoQing = "正氣凜然的說"

Case "生氣"
tBiaoQing = "生氣的說"

Case "大聲"
tBiaoQing = "大聲的說"

Case "傻乎乎"
tBiaoQing = "傻乎乎的說"

Case "很滿足"
tBiaoQing = "一付很滿足的說"

Case "手足無措"
tBiaoQing = "手足無措的說"