โปรแกรมต่อไปนี้จะหักความสูง (หรือความกว้าง) ที่ทาสก์บาร์ครอบครองเมื่อทำการคำนวณ หากมีแถบทางลัดที่เริ่ม Microsoft Office ความสูง (หรือความกว้าง) ที่ถูกครอบครองโดยแถบทางลัดก็จะถูกหักออกด้วย
PublicConstSM_CXFULLSCREEN=16
PublicConstSM_CYFULLSCREEN=17
#ถ้าWin32แล้ว
ประกาศ FunctionGetSystemMetricsLib "user32" (ByValnIndexAsLong)AsLong
#อื่น
ประกาศ FunctionGetSystemMetricsLib "ผู้ใช้" (ByValnIndexAsInteger) AsInteger
#สิ้นสุดถ้า
PublicSubCenterForm (frmAsForm)
frm.Left=Screen.TwipsPerPixelX*GetSystemMetrics(SM_CXFULLSCREEN)/2-frm.Width/2
frm.Top=Screen.TwipsPerPixelY*GetSystemMetrics(SM_CYFULLSCREEN)/2-frm.Height/2
สิ้นสุดย่อย
เพียงใช้ CenterFormMe ใน Form_Load ->