🚀 go-pugleaf

$BB@O:(B <1tarou@geocities.com> wrote in message
<01bd015f$84500700$0b0aa00a@valuestar>...
|
|$B$3$N%3%^%s%I$,<B9T$5$l$F$k$3$H$O3NG'$7$?$N$G$9$,!"2hLL>e$G$O2?$bJQ2=$O$"(B
|$B$j$^$;$s!#$I$&$d$C$?$iI8=`%b%8%e!<%k$+$i%U%)!<%`>e$N%*%V%8%'%/%H$N%W%m%Q(B
|$B%F%#$rJQ99$G$-$k$N$G$7$g$&$+!)(B  $B$I$&$+65$($F$/$@$5$$!#(B
|
$B$I$b!"H~9H!w$R$5$S$5$NEP>l(B $B$G$9!#(B

$B#V#B#5!%#0(B $B;HMQ$G$9!#(B

$B%U%)!<%`$K(B Label1 $B$H(B Command1 $B$r:n$C$F$3$s$J%3!<%I$r:n$j$^$7$?!#(B

Private Sub Command1_Click()

COMJIKKEN

End Sub

Private Sub Form_Load()

    Call JIKKEN

End Sub

$B$5$i$K(B $BI8=`%b%8%e!<%k$K$3$s$J%3!<%I$r$D$1$F!&!&!&!&(B

Sub JIKKEN()

    Form1.Label1.Caption = "$B$[$s$H$K99?7$7$J$$$N!)(B"
    'MsgBox Form1.Label1.Caption
    Debug.Print Form1.Label1.Caption

End Sub

Sub COMJIKKEN()

    Form1.Label1.Caption = "$B$8$c!"$3$C$A$O!)(B"
    'MsgBox Form1.Label1.Caption
    Debug.Print Form1.Label1.Caption

End Sub

$B$d$C$?$i$A$c$s$HLdBj$J$/F0$$$?$h!#(B
$BEvA3(B MsgBox $B$b(B $B$A$c$s$HF0$/$7!&!&!&!&!&(B

$B$J$K$,8@$$$?$$$N$+$C$F8@$&$H$M!"(B Call $B$NLdBj$+$H;W$C$?$N!#(B
$B$G$bLdBj$J$+$C$?$7!&!&!&!&!&!&(B
$B$"$H$O!&!&!&!&!&!&#S#P#2$C$F$N%$%s%9%H!<%k$7$J$$$H%P%0$C$F$k!)!&!&!&!&!&(B
$B$=$l$b$A$g$C$H$$$/$i$J$$$s$G$b$M$'!&!&!&!&!&!&!&(B
$B#V#B<+BN$N%$%s%9%H!<%k%_%9$+$7$i!)(B
$B$G$b!"$=$s$J4qNo$K%$%s%9%H!<%k%_%9$C$F$"$k$N$+$7$i!)(B

$B!&!&!&!&!&$H8@$&$o$1$G2sEz$K$J$C$F$J$$$G$9$1$I$3$l$G!&!&!&!&(B

$B!A!A!A!A!A!A!A!A!A!A!A!A!A!A!A!A!A!A!A!A!A!A!A!A!A(B
$B!yE_$O$d$C$Q$j%*%j%*%s:B(B          $B>e[j(B $BH~9H(B     $B!y(B
$B!yN.$l@1$K4%GU(B             sou@ro.bekkoame.or.jp$B!y(B
$B!A!A!A!A!A!A!A!A!A!A!A!A!A!A!A!A!A!A!A!A!A!A!A!A!A(B