请问下
Sub APPLICATION_VBAStart()

End Sub

Sub TestQQ_CommandButton1_Click()  
call Application.SetTimer(0,300)
End Sub

Sub TestQQ_CommandButton2_Click()
Application.ClearMsg
End Sub

Sub APPLICATION_Timer(ID)
Application.MsgOut("你好")
Set obj = CreateObject("WWSCommon.TCGroup")
call obj.TransMessage("测试金字塔", "测试，hello, world! ")
Set obj = Nothing
End Sub

Sub TestQQ_CommandButton3_Click()
Application.KillTimer(ID)
End Sub

为何还是无法发送消息到QQ群，群名称没问题。