escribir un textbox en cualquier parte del form

[Aquaventus]

Hola nelsonpk, puedes hacerlo de la siguiente manera... primero crea el siguiente método :

Código vb:

'Donde la variable caja es el nombre del TextBox
Private Sub ordenamiento(ByVal e As System.Windows.Forms.KeyPressEventArgs)
        If Char.IsDigit(e.KeyChar) Then
            caja.Focus()
            caja.Text = caja.Text & e.KeyChar
        Else
            e.Handled = True
        End If
    End Sub
 

Ahora una vez que tienes ese metodo, te vas a los eventos KEYPRESS de tu grilla, botones y Form y colocas lo siguiente :

Código vb:

'Invocamos al método ordenamiento
ordenamiento(e)
 

Finalmente en el evento KEYPRESS de tu textbox coloca lo siguiente :

Código vb:

If Char.IsDigit(e.KeyChar) Then
            caja.Select(caja.Text.Length, 0)
            e.Handled = False
        ElseIf e.KeyChar = Convert.ToChar(Keys.Enter) Then
            'Como se sabe los lectores de barra al final mandan un {ENTER}
            'por eso una vez que lo envía aqui se haces la función que deseas realizar
        Else
            e.Handled = True
 
        End If
 

La variable caja es el nombre que le asigne al textbox, que obviamente tendría que ir el nombre que tú le hayas asignado. Saludos!.