Private Sub TextBox1_Validating(ByVal sender As System.Object, ByVal e As _
     System.ComponentModel.CancelEventArgs) _
   Handles TextBox1.Validating, TextBox2.Validating, TextBox3.Validating
 
      Dim t As TextBox = CType(sender, TextBox)
      ' so, t ist jetzt die aktuelle TextBox
      ' Jetzt kommt deine Weiterverarbeitung.
 
   End Sub

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control