variation of example posted by MartinLiss


VB Code:
  1. Private Sub Form_Resize()

  2.     On Error Resume Next

  3.     Me.Height = 3000

  4.     Me.Width = 3000

  5. End Sub