请教如何改写 SKYPE 信息状态

    Dim oSkype As SKYPE4COMLib.skype
    Dim oChat As SKYPE4COMLib.ChatMessage

    Set oSkype = New SKYPE4COMLib.skype
    Set oChat = New SKYPE4COMLib.ChatMessage
    For Each oChat In oSkype.Messages
        If oChat.Status = 2 Then  '2=未读信息，3=已读信息
                Debug.Print oChat.Timestamp & " / " & oChat.ChatName & " / " & oChat.Body  & " / " & oChat.IsEditable
            End If
    Next
    Set oSkype = Nothing
    Set oChat = Nothing

有未读的信息，oChat.Status = 2，请教如何不打开 SKYPE 阅读信息，直接把信息状态改成已读状态？谢谢！ skype --------------------编程问答-------------------- oChat.Status = 3
不可以么？ --------------------编程问答-------------------- oChat.Status = 3
不行，提示
编译错误:
不能给只读属性赋值

有什么办法解决吗？谢谢！ --------------------编程问答-------------------- SET MESSAGE SEEN – obsolete Mark message as seen by the user and remove it from the missed messages list. This command is obsolete and has been replaced by the SET CHATMESSAGE SEEN command.
Syntax SET MESSAGE <id> SEEN
Response MESSAGE <id> STATUS value Properties
 <id> – message ID;
 value – (new) status value Version Protocol 1, deprecated in protocol 3
Example -> SET MESSAGE 1578 SEEN <- MESSAGE 1578 STATUS READ

在 VBA中怎么写？

补充：VB ,  基础类