O programa a seguir deduzirá a altura (ou largura) ocupada pela barra de tarefas durante o cálculo. Se houver uma barra de atalho que inicia o Microsoft Office, a altura (ou largura) ocupada pela barra de atalho também será deduzida.
PublicConstSM_CXFULLSCREEN=16
PublicConstSM_CYFULLSCREEN=17
#IfWin32Then
DeclareFunctionGetSystemMetricsLib"user32"(ByValnIndexAsLong)AsLong
#Outro
DeclareFunctionGetSystemMetricsLib"Usuário"(ByValnIndexAsInteger)AsInteger
#EndIf
PublicSubCenterForm(frmAsForm)
frm.Left=Screen.TwipsPerPixelX*GetSystemMetrics(SM_CXFULLSCREEN)/2-frm.Width/2
frm.Top=Screen.TwipsPerPixelY*GetSystemMetrics(SM_CYFULLSCREEN)/2-frm.Height/2
Fim Sub
Basta usar CenterFormMe em Form_Load ->