pessoal, eu tenho 3 abas numa tela.
nessa tela eu tenho um código que ao aumentar a tela os campos aumental automaticamente com a tela. o código é esse:
Private Sub Form_Resize()
'FUNÇÃO QUE AJUSTARÁ OS CONTROLES MESMO QUANDO A JANELA ESTIVER MAXIMIZADA
Dim CTL As Control
On Error Resume Next
'If m_bIniciaForm = True Then Exit Sub
If (WidDiff <> 1) Or (HeiDiff <> 1) Then
WidDiff = (frmCadPrecificacao.width / OldFrmWid)
HeiDiff = (frmCadPrecificacao.height / OldFrmHei)
For Each CTL In Controls
With CTL
.left = (CTL.left * WidDiff)
.top = (CTL.top * HeiDiff)
.width = (CTL.width * WidDiff)
.height = (CTL.height * HeiDiff)
End With
Next CTL
OldFrmWid = frmCadPrecificacao.width
OldFrmHei = frmCadPrecificacao.height
End If
OldFrmWid = frmCadPrecificacao.width
OldFrmHei = frmCadPrecificacao.height
End Sub
só q se eu deixar a primeira aba aberta, quando eu executar o programa e aumentar a tela as outras abas não mostram os campos que tem nela.
pq? como arrumar?