🚀 go-pugleaf

$BE*$rF@$?Ez$($+$I$&$+J,$+$j$^$;$s$,!"(J
$B<!$NJ}K!$r$^$a$7$F$_$F$/$@$5$$!#(J

$B#1!%(JForm1,Form2$B$GF1$8JQ?t$r6&M-$7$?$$>l9g$O!"%3!<%I%b%8%e!<%k(J(***.bas)$B$N$J(J
$B$+$G(J
Option Explict '$B$3$l$O$I$&$G$b$h$$(J

Public da(60)
Public  st

$B$HJQ88$9$l$P$h$$$G$9!#(J
$B%W%m%8%'%/%H$K?7$7$$%3!<%I%b%8%e!<%k$rDI2C$9$k$N$O!"(J
$B%k!<%k%P!<$G!"%U%)!<%`$rDI2C$9$k%\%?%s$N2#$N%\%?%s$r2!$;$P$h$$$G$9!#(J

$B#2!%(JForm1$B$NCf$+$i!"(JForm2$B$K$R$g$&$8$7$?$$$N$@$C$?$i!"(J
    Form1$B$N%\%?%s$N%/%j%C%/%$%Y%s%H$G$D$.$N$h$&$K$7$F$_$F$/$@$5$$!#(J

Privata Sub Command1_Clic()
    Form2.show
    Form2.Print
    Form2.Print 
    for i = 1  to pp
        Form2.Print " $B;HMQIt:`(J "
    Next i
End Sub

ueki.s <uekis@mb.infoweb.ne.jp> wrote in article
<01bcc013$deb8dce0$LocalHost@default>...
> Visual Basic 4.0 $B$r;HMQ$7$F$$$k=i?4<T$G$9!#(J
> $B#1!%(JFrom1$B$G(J
> $B!!!!(JOption Explict$B!!(J
>   Private da(60)
>   Dim  st
> $B$H;XDj$7$FJQ?t$r;HMQ$7$F$$$^$9$,(JForm2$B$G$b(J
> $B;HMQ=PMh$kJ}K!$r65$($F2<$5$$!#(J
> 
> $B#2!%(JForm1$B$K(Jprint$BJ8$G2hLLI=<($7$F$$$^$9$,(JForm2$B$r%*!]%W%s$7$F2hLL(J
> $BI=<($5$;$kJ}K!$r65$(2<$5$$!#!!!!(J      
>      Privata Sub Command1_Clic()
>   Print
>   Print 
>    for i = 1  to pp
>  Print " $B;HMQIt:`(J "
>   Next i
>  End Sub
> 
> $B$I$J$?$+$*65$(2<$5$$!#(J
>