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

Signature
Sue Mosher, Outlook MVP
Author of
Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx
> Open Form size 1024 X 768
>
[quoted text clipped - 5 lines]
> Thanks
> E.Zenker