そのフォームに効果があるかどうか分かりませんがこんな感じに変更してはどうでしょう次に表示するフォーム:Form2今表示しているフォーム:Form1Private Sub Form_Unload(Cancel As Integer) Load Form2 Form2.Show Form2.Refresh Unload MeEnd Sub