
Public Class usuarios
Private cajatexto As String
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
Me.Controls(Me.cajatexto).Text = ""
Me.Controls(Me.cajatexto).Focus()
Catch exception As NullReferenceException
MsgBox("Error al borrar", MsgBoxStyle.Critical)
End Try
End sub
Private Sub TextBox2_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Enter, TextBox2.Enter, TextBox3.Enter
Me.cajatexto = CType(sender, TextBox).Name
End Sub
End class