QQ有群发功能的 下面的这个太专业,祝您成功!以前的的发送消息按钮事件改写如下: '/////////////////////转到发送即时消息页面Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickDim i, j As Integerj = 0Dim tostu_id As String = ""For i = 0 To mycheck.Items.Count - 1If mycheck.Items(i).Selected