別々のフォームから1つの関数をｃａｌｌするには？

ばんび 2004-08-02 23:47:46 No: 115261

こんにちは。初めて質問させていただきます。
VB.NETでの質問です。

別々のフォームから値を入力し、マスタ参照のサブルーチンをcallし、
それぞれのフォームへ名称等を返したいのですが、どのようにすればよいのでしょうか？

フォーム１でtext1.textに値入力。入力後、マスタ参照関数call
フォーム２でtext1.textに値入力。入力後、マスタ参照関数call
マスタ参照関数
Public Sub InpSiire(ByRef Frm As ***, ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)

     With Frm
       strsql = "select * from siire_mst where                                             siirecd='"& .TextBox1.Text & "'"
       **  ＤＢよりマスタを参照し、名称を返す  **
         .Label10.Text = CType(cnRd.Item("siireme"), String)

ばんび 2004-08-02 23:59:23 No: 115262

すいません。
間違って途中で送信してしまいました。