设置窗体透明后，出现闪烁现象，如何解决？紧急求救啦！！急

Question

以下是我设置窗体透明的代码：
Public Sub SetFormMode(ByRef fnForm As Form, ByVal fnBKColor As Long)
    ' 制作不规则窗体
    Dim rtn As Long
    fnForm.BorderStyle = 0
    rtn = GetWindowLong(fnForm.hWnd, GWL_EXSTYLE)
    rtn = rtn Or WS_EX_LAYERED
    SetWindowLong fnForm.hWnd, GWL_EXSTYLE, rtn
    ' 扣去窗体指定的背景色
    SetLayeredWindowAttributes fnForm.hWnd, fnBKColor, 255, LWA_COLORKEY Or LWA_ALPHA
End Sub结果是窗体能达到我所要的不规则形状，但是总会不时地出现闪烁现象，把背景闪烁出来就不Happy了啦。
请高人指点了啦。谢谢，万分感谢啦！

Answer 1

是你的桌面可能被某些软件进行提高刷新率优化了

Answer 2

我也不止一个窗体作了这个效果，凡是不在地图窗口上的透明窗体就不闪烁，在地图窗口上的透明窗体就闪烁不停，真郁闷啦，各位有什么办法解决吗？