Program berikut akan mengurangi tinggi (atau lebar) yang ditempati bilah tugas saat menghitung. Jika ada bilah pintasan yang memulai Microsoft Office, tinggi (atau lebar) yang ditempati bilah pintasan juga akan dikurangi.
PublicConstSM_CXFULLSCREEN=16
PublicConstSM_CYFULLSCREEN=17
#JikaMenang32Lalu
DeklarasikanFunctionGetSystemMetricsLib"user32"(ByValnIndexAsLong)AsLong
#Kalau tidak
DeklarasikanFunctionGetSystemMetricsLib"User"(ByValnIndexAsInteger)AsInteger
#EndIf
Formulir SubPusat Publik(frmAsForm)
frm.Left=Layar.TwipsPerPixelX*GetSystemMetrics(SM_CXFULLSCREEN)/2-frm.Width/2
frm.Top=Layar.TwipsPerPixelY*GetSystemMetrics(SM_CYFULLSCREEN)/2-frm.Height/2
Sub Akhir
Cukup gunakan CenterFormMe di Form_Load ->