To center a form, you only need one API call, no UDTs, and two constants. This solution is based on thefact that GetSystemMetrics reflects real estate taken up by the taskbar and the Microsoft Office shortcutbar:
Public Const SM_CXFULLSCREEN = 16Public Const SM_CYFULLSCREEN = 17#If Win32 then Declare Function GetSystemMetrics _ Lib "user32" _ (ByVal nIndex As Long) As Long#Else Declare Function GetSystemMetrics _ Lib "User" _ (ByVal nIndex As Integer) _ As Integer#End IfPublic Sub CenterForm(frm As Form) frm.Left = Screen.TwipsPerPixelX * _ GetSystemMetrics_ (SM_CXFULLSCREEN) / 2 _ - frm.Width / 2 frm.Top = Screen.TwipsPerPixelY * _ GetSystemMetrics_ (SM_CYFULLSCREEN) / 2 _ - frm.Height / 2End Sub