$B9b66$G$9(B
"$B$T$N(B" wrote in message
$B<!$N2hLL$X0\F0$7$h$&$H$7$F!"%"%W%j%1!<%7%g%s$N:G=i$N(BForm$B$rJD$8$k$H!"(B
$B%"%W%j%1!<%7%g%sA4BN$,=*N;$7$F$7$^$$$^$9!#(B
$B0lHLE*$K$I$&$d$C$F2hLL$N0\F0$r$9$k$b$N$J$N$G$7$g$&$+!)(B
$B:G=i$K3+$$$?2hLL$r3+$$$?>uBV$K$7B3$1$k$N$G$7$g$&$+!)(B
$B%W%m%8%'%/%H$N%W%m%Q%F%#$***@_Dj$G%9%?!<%H%"%C%W$r(B Form1$B$J$I$N(B
$B%U%)!<%`$K$7$F$$$k$N$G$"$l$P(B
Form1$B$+$iJL$N%U%)!<%`$KA+0\$9$k>l9g(B Form1$B$O(BHide$B%a%=%C%I$G(B
$BHsI=<($K$9$k$@$1$K$7$^$9(B
$B$3$N>l9g(B Form1$B$N:FI=<(MQ$K(B $BA+0\B&$N%U%)!<%`$J$I$K(B Form1$B$N(B
$B%*%V%8%'%/%HJQ?t$rMQ0U$7$F$*$-$^$7$g$&(B
$BJL$NJ}K!$H$7$F$O(B
$BI8=`%b%8%e!<%k$rMQ0U$7$F(B $B$3$l$K(B Sub Main $B%W%m%7!<%8%c$r=`Hw$7$^$9(B
$B$3$N(B Sub Main $B$+$i(B $B:G=i$N%U%)!<%`$r8F$S=P$9$h$&$K$7$F(B
$B=*N;>r7o$,@_Dj$5$l$?$i(B Sub Main $B$rH4$1$k$h$&$K$7$F$_$^$7$g$&(B
$B$?$H$($P(B
Module Module1
Public bFlag as Boolean
Sub Main()
dim oForm as New Form1()
oForm.Show()
do until bFlag
Application.DoEvents()
loop
End Sub
End Module
$B$H$$$C$?6q9g$K$7$F$*$-$^$9(B
Module1.bFlag$B$,(B True$B$***@_Dj$5$l$l$P%"%W%j%1!<%7%g%s$,=*N;$7$^$9(B
--
$B9b66@/9((B ***@yahoo.co.jp
Microsoft MVP Visual C++
$BJV?.$O!X%0%k!<%W$XJV?.!Y$G(B ...