El siguiente programa deducirá la altura (o ancho) ocupada por la barra de tareas al calcular. Si hay una barra de acceso directo que inicia Microsoft Office, también se deducirá la altura (o ancho) ocupada por la barra de acceso directo.
PublicConstSM_CXFULLSCREEN=16
PublicConstSM_CYFULLSCREEN=17
#SiGana32Entonces
DeclareFunctionGetSystemMetricsLib"user32"(ByValnIndexAsLong)AsLong
#Demás
DeclareFunctionGetSystemMetricsLib"Usuario"(ByValnIndexAsInteger)AsInteger
#FinSi
Formulario de subcentro público (frmAsForm)
frm.Left=Screen.TwipsPerPixelX*GetSystemMetrics(SM_CXFULLSCREEN)/2-frm.Width/2
frm.Top=Screen.TwipsPerPixelY*GetSystemMetrics(SM_CYFULLSCREEN)/2-frm.Height/2
FinSub
Simplemente use CenterFormMe en Form_Load ->