主题：[求助]两个关于用户组的问题

1、下面是在复选列表框获取所有用户的代码，如果仅获取登录人的本用户组 内的用户，怎样修改代码：

For Each us As UserInfo In Users
    Dim cmb As WinForm.CheckedListBox
    cmb = Forms("分享").Controls("CheckedListBox1")
    cmb.items.add(us.Group &"."& us.Name)
Next

2、QQServer和QQClient有一个名为Send的方法，用于发送信息，语法为：