テキストボックスのオブジェクト渡し

質問

えー始めまして。

最近、開発に復帰してブランクが3年ほどあるものなのですが、
現在、Ｃ／Ｓのクライアント側アプリをVB6.0で開発しています。
そのアプリのなかで、テキストボックスの入力チェックを行おうと、
プログラムを書いたのですが、テキストボックスオブジェクトを引数として
サブモジュールに渡す方法ってわかる方いらっしゃいますか？
サブモジュール側でオブジェクトを引数として使っているので、
規定オブジェクトのテキストボックスだと、オブジェクトイメージではなく
設定されているテキストの内容しか、引数で渡せなくて困っているんです。
このサブモジュールは汎用性を持たせようと作成したので、
これができないんであれば若干プログラムの見直しが必要なんです。
もし、ご存知の方がいらしたらご回答お願いします。

回答No.1

noname#22222 · ベストアンサー

Private Sub Command1_Click()
　　Test Me.Text1
End Sub

Public Sub Test(ByVal txtBox As TextBox)
　　MsgBox txtBox.Text
　　MsgBox txtBox.FontName
End Sub