🚀 go-pugleaf

阿部＠アルプス電気です

御礼の言葉を書こうと思って
なかなかかけませんでした,すいません！！
form　について　沢山のアドバイス
ありがとうございました
助かりました

form１．check１．caption
これは
どうしてもcaptionだけわ
渡りませんでした
type．．．．．他　etc
使ってみましたが．出来ませんでした残念
プログラムはこうなんです

Sub  k_main() 
            Call　formＡ（　Ｆｏｒｍ１!Command.Ｃａｐｔｉｏｎ　,　100　,　
dat_ary　)
End Sub

Sub formA( f , cnt_max , dat_ary )
Do
       f( cnt ) = ary( cnt )
       cnt=cnt+1
Loop Until cngt = 100

End  Sub
以上は　ＥＲＲＯＲ　プログラムです

無駄なプログラムかも？？？？？

Ｃａｐｔｉｏｎ　設定が沢山有る時は
助かるのです．．．．．？

Sub  k_main() 
            Call　formＡ（　Ｆｏｒｍ１!Command　,　100　,　dat_ary　)
End Sub

Sub formA( f , cnt_max , dat_ary )
Do
       f( cnt )．ｃａｐｔｉｏｎ = ary( cnt )
       cnt=cnt+1
Loop Until cngt = 100

End  Sub
以上は　ＯＫ　プログラムです

また良い方法があたりしたら
お願いします