没看懂你的意思。窗口顶部不可以放入一个panel然后设置背景颜色？窗口不能设置背景颜色？
判断是否当前窗口，你可以在定时器那里写代码，如
dim frm = forms.activeform
If frm isnot nothing then
msgbox(frm.name)
end if
加好友 
发短信
Post By：2018/7/17 11:50:00 [显示全部帖子]
