フォームの表示に関しての質問です。

Sub Form_Load() Handles MyBase.Load
'処理Ａ（５分程度時間がかかる）
End Sub

この時、処理Ａが終了するまで、フォームが表示されません。
処理Ａの前にMybase.Showを実行すると、
ウィンド枠と、メニューは表示されるのですが、ボタンやテキストボックスが
白く表示されてしまいます。（処理Ａが終了したら正しく表示される）
処理Ａの間も正常に表示させるにはどうしたらいいのか教えてください。
お願いします。