屏幕分辨率的有关问题

屏幕分辨率的问题
我写了一个程序，打开窗体时改变屏幕分辨率。可是下面这句提示
ResizeInit (Me)类型不匹配。
程序如下：
  '在调用ResizeForm前先调用本函数
Public Sub ResizeInit(FormName As Form)
   Dim i As Long
   Dim j As Long
  ResWidth = Screen.Width \ Screen.TwipsPerPixelX
  ResHeight = Screen.Height \ Screen.TwipsPerPixelY
  i = SetDisplaymode(1024, 800, 0)
  If i <> DD_OK Then
    SetDisplaymode 1024, 768, 0
  End If

End Sub
Private Sub Form_Load()
Form1.WindowState = 2
Me.AutoRedraw = True
ResizeInit (Me)
End Sub
请高手指教，谢谢！

[最优解释]
FormName As Form改成FormName As Form1
问题是为什么要传Me呢？
[其他解释]
还有把ResizeInit(Me)改成Call ResizeInit(Me)也可以。