Private Sub Form_Resize()
If Me.WindowState <> vbMinimized Then
Me.Height = 1200 ' Height You want
Me.Width = 1200 ' Width you want
End If
End Sub
Private Sub Form_Resize()
If Me.WindowState <> vbMaxamized Then
Me.Height = 1200 ' Height You want
Me.Width = 1200 ' Width you want
End If
End Sub