224さん、ありがとうございました。
下記の方法でなんとかなりそうです。
あと、ちにあみにLockWindowUpdateで解除するときNULLを指定すると書いてあったんですが、
VBでAPI呼ぶ時にNULLは0でいいんでしょうか？
一応、下記は正常に動いてますが、少し不安です。
Sub a()
Dim l As Long
'フォームをロック？する
Call LockWindowUpdate(Me.hWnd)

Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
Text5.Visible = True

'とても重い処理
For l = 0 To 10000000: Next l

If iflg = 0 Then
Text1.Visible = False
Text2.Visible = False
Text3.Visible = False
Else
Text3.Visible = False
Text4.Visible = False
Text5.Visible = False
End If
'解除
Call LockWindowUpdate(0)
End Sub