Open Form size 1024 X 768

[E.Zenker]

Open Form size 1024 X 768

Hi

Can anyone tell me how to open a userfoem in size 1024 X 768
in the top left corner of the sreen

Thanks
E.Zenker

 

[Sue Mosher [MVP-Outlook]]

Try:

Function Item_Open()
Const olNormalWindow = 2
Set objInsp = Item.GetInspector()
With objInsp
.WindowState = olNormalWindow
.Top = 0
.Left = 0
.Height = 768
.Width = 1024
End With
End Function