1、正确
2、
dim ary() As String = e.Form.Controls("CheckedComboBox1").text.split(",")
For Each s As String In Ary
msgbox(s)
QQClient.Send(s,e.Form.Controls("TextBox1").text,True) '可离线发送
Next
------------------
For Each us As UserInfo In Users
'MessageBox.Show(us.Group &"."& us.Name)
Dim cmb As WinForm.CheckedComboBox
cmb = Forms("窗口1").Controls("CheckedComboBox1")
cmb.items.add(us.Group &"."& us.Name)
Next