APIなんぞ使わなくても取得できます。
Private Sub Form_Load() Debug.Print Screen.Width Debug.Print Screen.Height End Sub
Private Sub
Form_Load()
Debug.Print
Screen.Width
Screen.Height
End Sub