主题：[求助]OpenQQ右下角弹窗和聊天窗口的字体能改吗？

不能改。

如果确实要做，你可以做一个计划任务，然后输入代码（不过测试的效果也不是太好）

Dim frm = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
    If frm.name = "frmTalker" Then
       
        For Each c As object In frm.controls("SplitContainer1").panel1.controls
            c.font = new font("宋体", 15)
        Next
        For Each c As object In frm.controls("SplitContainer1").panel2.controls
            c.font = new font("宋体", 15)
        Next
    End If
    If frm.name = "frmPopmessage" Then
        For Each c As object In frm.controls
            c.font = new font("宋体", 15)
        Next
    End If
End If