こんなことできないでしょうか？ (ID:90438)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 >>じゃんぬねっとさん なるほど。 実際は、やはり正攻法でIndexはどこのも埋め込まず Private Sub PTextBoxes_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Dim hTextBox As TextBox = DirectCast(sender, TextBox) MsgBox(GetIndex(sender, pTextBox).ToString) End Sub Private Function GetIndex(ByVal sender As Object, ByVal obj() As Object) As Integer For i As Integer = LBound(obj) To UBound(obj) If sender Is obj(i) Then Return i Exit For End If Next End Function こんなことをやるんでしょうか。