AO AUMENTAR A JANELA NAO MOSTRA CAMPOS NO FORM

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