Ａｃｃｅｓｓサブフォーム高さ指定エラー

##使用ソフト・プログラミング言語
ソフト：Ａｃｃｅｓｓ２０１６
言語：ＶＢＡ

前提・実現したいこと

Ａｃｃｅｓｓのフォーム画面の中のサブフォームに設置しているテキストボックスを非表示にして、サブフォームの詳細エリアの高さと、サブフォームコントロールの高さを縮めたいです。

発生している問題・エラーメッセージ

何が原因かわかりかねますが、テキストボックスの非表示に成功しましたが、サブフォームの詳細エリアの高さが縮んでいないようです。
どのように修正すればよろしいでしょうか？

該当のソースコード

テキストボックスとラベルのコントロール名は、事前に変数に格納してあります。

VBA
1'コントロール名用変数
2public LN(49), TN(49) as String
3'カウント用変数を宣言する
4  Dim i, j, moji As Integer
5  '行数分繰り返す
6  For i = 0 To 49
7    LN(i) = "La_a" & i + 1
8    '文字コードを９８『ｂ』にセットする
9    moji = 98
10    '列数分繰り返す
11    For j = 0 To 9
12      'テキストボックス名を変数に格納する
13      TN(i, j) = "Txt_" & Chr(moji) & i + 1
14      '文字コードを加算する『ｂ → ｃ → ｄ → ｅ …』
15      moji = moji + 1
16    Next
17  Next

以下はテキストボックスとラベルを非表示にする処理です。

VBA
1Dim FN(1) As Form
2'表示しているテキストボックスの数を記録する
3Dim TxtVisible as Integer
4set FN(0) = Forms!F05_親フォーム!F03_入力画面.Form
5set Fn(1) = Forms!F05_親フォーム
6TxtVisible = 15
7'親フォームの水平と垂直のスクロールバーを表示する
8  FN(1).ScrollBars = 3
9  '現在の行数を変数に格納する
10  TxtVisible = 15
11  '現在の画面に表示している行が５０行未満の場合
12  If TxtVisible < 50 Then
13    '現在の画面に表示している行が１０行未満の場合
14    If TxtVisible <= 10 Then
15      '親フォームのスクロールバーを水平方向だけにする
16      FN(1).ScrollBars = 1
17    '分岐処理を終了する
18    End If
19    '５０行目まで繰り返す
20    For i = TxtVisible + 1 To 49
21      '１０列分繰り返す
22      For j = 0 To 9
23        'ラベルの上位置を0にして非表示にする
24        FN(0).Controls(LN(i)).Top = 0: FN(0).Controls(LN(i)).Visible = False
25        'テキストボックスの上位置を0にして非表示にする
26        FN(0).Controls(TN(i, j)).Top = 0: FN(0).Controls(TN(i, j)).Visible = False
27      '繰り返し処理に戻る
28      Next
29    '繰り返し処理に戻る
30    Next
31    '入力画面の一番下の位置を変数に格納する
32    i = FN(0).Controls(LN(TxtVisible)).Top + FN(0).Controls(LN(TxtVisible)).Height
33    '入力画面の詳細エリアとサブフォームエリアの高さを指定する
34    FN(0).詳細.Height = i
35  '分岐処理を終了する
36  End If