我在做一个类似QQ右下角弹广告的窗口效果.. XP上执行正常,但在WIN7就不行...什么情况?

'If Me.Opacity < 1 Then
' Me.Opacity += 0.05
'End If

If Me.Location.Y > (Screen.PrimaryScreen.WorkingArea.Height - Me.Height) Then
Me.Location = New Point(Screen.PrimaryScreen.WorkingArea.Width - Me.Width, Me.Location.Y - Me.Height / 10.0)
End If

以上两种方法在WINXP可用....都是放在TIMER中的
但是在WIN7下都看不到效果...