ERRO NA CENTRALIZACAO DO FORM.

USUARIO.EXCLUIDOS 02/06/2005 17:46:27
#86646

E aí Pessoal este é o Erro.



Na Imagem acima vocês podem ver que os Botoes de mover registros estão sobre o "StatusBar", isso porque eu mandei Centralizar o Formulário.

O Código esta assim:
MousePointer = 11
Frm_CadBanco.Show vbModal
CentralizaForm frm_CadBanco
MousePointer = 0

O Código do CentralizaForm é:

Public Sub CentralizaForm(FRM As Form)
Dim lRes As Long
Dim rectVal As RECT
Dim L As Single, T As Single
Dim SM As Integer
lRes = SystemParametersInfo(SPI_GETWORKAREA, 0, rectVal, 0)
L = ((rectVal.Right - rectVal.Left) * Screen.TwipsPerPixelX - FRM.Width) / 2
T = ((rectVal.Bottom - rectVal.Top) * Screen.TwipsPerPixelY - FRM.Height) / 2

FRM.Move L, T
FRM.Refresh
End Sub

Vocês sabem o que eu posso fazer para centralizar o Formulário sem que o mesmo se "Desconjunte". (Sem que os botões saiam da posição original) ?

Desde já Agradeço.[S37]