请问怎么在一个事件里写公共的代码呀？

Question

在不同的控件中On_Click中调用同一方法.例如
Public sub commonDo(pOrderString)
  Select case pOrderString
    Case 'A'
      'Do something
    Case 'B'
      'Do something
    Case Else
      'Do something
  End Select
End sub
a.On_Click()
     commonDo('a')
end subb.On_Click()
     commonDo('b')
end sub

Answer 1

对不起，误会我的意思了，我是想要这样的效果：
Private Sub Text1_DblClick(Index As Integer)
MsgBox "asdfasdfasdf"
End Sub
Index As Integer这样的，好象我自己矛盾了

Answer 2

你是想把这些所有的txt文本框联系起来，用一个类似index的索引号串起来
这玩意数组肯定是最好的，其他的办法老实说，都有些画蛇添足