∇　フォームが表示されてからForm_Load　∇

　　　　　　　　　　　　　　　　　　試しに、下のコードを実行してみてください。(全く意味のないものですが・・・)

　　　　　　　　　　　　　 Private Sub Form_Load()
　　　　　　　　　　　　　　Dim i As Long

　　　　　　　　　　　　　　 For i = 0 To 1000000
　　　　　　　　　　　　　　　　i = i + 1 - 1
　　　　　　　　　　　　　　 Next
　　　　　　　　　　　　　 End Sub

　　　　　　　　　コードを実行してから表示していることが分かるでしょう。

　　　　　　　　　では、下のようにすると、どうでしょう。すっきりするでしょう。

Private Sub Form_Load()
　　　
　Dim i As Long

　 Me.Show

　 For i = 0 To 1000000
　　　i = i + 1 - 1
　 Next
End Sub　　　　　　　

1999 Copyright(C) Manabu
1999-00 Manabuの部屋 http://www.manabu.uni.cc/
この文章の無断転際を禁じます

PC用眼鏡【管理人も使ってますがマジで疲れません】 解約手数料０円【あしたでんき】 Yahoo 楽天 NTT-X Store

無料ホームページ 無料のクレジットカード 海外格安航空券 ふるさと納税 海外旅行保険が無料！ 海外ホテル