Ok en base a lo comentado decide trabajarlo de otra manera modifique mi traclado para que en este tenga un textbox y un label, la idea es que ahora el focus se haga en el texbox que siempre es el mismo, con eso ya esta, y el cambo labes se completa con el dato de un trim que almacene, espero me sigan hasta aqui, les dejo el codigo:
Código:
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 27
SendKeys " "
Case 28
Unload Me
Case 29
Command1(0).Caption = "q"
Command1(1).Caption = "w"
Command1(2).Caption = "e"
Command1(3).Caption = "r"
Command1(4).Caption = "t"
Command1(5).Caption = "y"
Command1(6).Caption = "u"
Command1(7).Caption = "i"
Command1(8).Caption = "o"
Command1(9).Caption = "p"
Command1(10).Caption = "a"
Command1(11).Caption = "s"
Command1(12).Caption = "d"
Command1(13).Caption = "f"
Command1(14).Caption = "g"
Command1(15).Caption = "h"
Command1(16).Caption = "j"
Command1(17).Caption = "k"
Command1(18).Caption = "l"
Command1(19).Caption = "ñ"
Command1(20).Caption = "z"
Command1(21).Caption = "x"
Command1(22).Caption = "c"
Command1(23).Caption = "v"
Command1(24).Caption = "b"
Command1(25).Caption = "n"
Command1(26).Caption = "m"
Command1(29).Visible = False
Command1(40).Visible = True
Case 40
Command1(0).Caption = "Q"
Command1(1).Caption = "W"
Command1(2).Caption = "E"
Command1(3).Caption = "R"
Command1(4).Caption = "T"
Command1(5).Caption = "Y"
Command1(6).Caption = "U"
Command1(7).Caption = "I"
Command1(8).Caption = "O"
Command1(9).Caption = "P"
Command1(10).Caption = "A"
Command1(11).Caption = "S"
Command1(12).Caption = "D"
Command1(13).Caption = "F"
Command1(14).Caption = "G"
Command1(15).Caption = "H"
Command1(16).Caption = "J"
Command1(17).Caption = "K"
Command1(18).Caption = "L"
Command1(19).Caption = "Ñ"
Command1(20).Caption = "Z"
Command1(21).Caption = "X"
Command1(22).Caption = "C"
Command1(23).Caption = "V"
Command1(24).Caption = "B"
Command1(25).Caption = "N"
Command1(26).Caption = "M"
Command1(29).Visible = True
Command1(40).Visible = False
Case Else
campotec.SetFocus
SendKeys Command1(Index).Caption
End Select
End Sub
y
Código:
Private Sub Form_Load()
tituloteclado.Caption = titulotec
End Sub
Y en el formulario anterior tengo lo siguiente:
Código:
Private Sub txtPass_Click()
titulotec = Trim("Ingrese la Contraseña")
Teclado.Show
End Sub
Private Sub txtUser_Click()
titulotec = Trim("Ingrese el Usuario")
Teclado.Show
End Sub
De esta manera me cambia la leyenda del label en base a que textbos seleccione, ahora lo que quiero hacer es mandar el dato que complete en el textbox del teclado al textbox de mi primer form.
Yo estaba pensando en hacer algo asi como el trim pero a la inversa, pero no he podido encontrar nada, espero me puedan ayudar con esto con algun tip para esto.
Saludos y gracias.