精选优质文档-倾情为你奉上1.服务器端往服务器窗体（命名为frmServer）添加三个控件，分别为LIST1（存放在线好友名单），text1（留言内容）和text2（聊天记录），程序如下：Option ExplicitConst Busy As Boolean = FalseConst Free As Boolean = TrueDim ConnectState() As BooleanDim SIndexDim Usrs(0 To 32) 在线人名Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) EndEnd SubPrivate Sub Form_Load() If App.PrevInstance = True Then MsgBox 程序已在运行, vbCritical End End If ReDim Preserve ConnectStat
