win98下编的屏保,为何XP下不能正常显示,谢谢!!!!

Question

我在WIN98下编了一个简单的屏保,能正常测试,调用,可在XP下,测试正常,可安装后,实际用时,却不能正常显示,只显示一个极小的窗体(或窗体最小化,我在编时是设计成一起动就最大化),求教高手如何解决,谢谢!!!

Answer 1

我的代码:
编译时,后缀名改为.SCR
Private Sub Form_Load()
If App.PrevInstance Then
Unload Me
End
Else
      Move 0, 0, Screen.Width, Screen.Height '?form1全屏?示(在XP下无法实现全屏,显示的只是一个最小化的窗体)
      ShockwaveFlash1.Top = Me.ScaleTop
      ShockwaveFlash1.Left = Me.ScaleLeft
      ShockwaveFlash1.Width = Me.ScaleWidth
      ShockwaveFlash1.Height = Me.ScaleHeight
      ShockwaveFlash1.Visible = True
      ShockwaveFlash1.Movie = "c:\111.swf"
      ShockwaveFlash1.Play
End If
End Sub