>>105
> sub S_test(A_frmname as form)
> sub S_test(A_frmname as String)
かな。