计算机网络课程设计之聊天程序

实现聊天的简单功能PrivateSubCombo1_Click()TxtSend.Font.Name=Combo1.TextEndSubPrivateSubCheck1_Click()'设置隶书字体IfCheck1.Value=1ThenTxtSend.FontName="隶书"ElseTxtSend.FontName="宋体"EndIfEndSubPrivateSubCheck2_Click()'设置下划线字体IfCheck2.Value=1ThenTxtSend.FontUnderline=Tru