Public Function GetControlsWindowSize(tag As String)

    Dim f As Form

    Dim c As Control

    Dim GrpLeft As Long

    Dim GrpRight As Long

    Dim GrpTop As Long

    Dim GrpBottom As Long



        For Each c In f.Controls

            If c.Properties.Item("tag") = tag Then

                If GrpLeft = 0 Or GrpLeft > c.Left Then GrpLeft = c.Left

                If GrpRight = 0 Or GrpRight < c.Left + c.Width Then GrpRight = c.Left + c.Width

                If GrpTop = 0 Or GrpTop > c.Top Then GrpTop = c.Top

                If GrpBottom = 0 Or GrpBottom < c.Top + c.Height Then GrpBottom = c.Top + c.Height

            End If

        Next

End Function