＞'ここにループを書くとウインドウ描画前に始まってしまうので、
＞'タイマー使用

show
doevents
のコンボをform1_loadに書いておけば
その時点でwindowが表示されるよ