Teclado virtual

[gasuton]

PKJ es muy interesante tu respuesta, pero si entiendo bien tendría que tener una case para cada form que exista en el sistema.

Y ya he logrado resolver esto con mucho menos código, gracias a la ayuda de otro gran programador de la siguiente manera:

Código:

Public Sub enter_Click(Index As Integer)

Dim frm As Form
Dim ctl As Control
For Each frm In Forms
    If frm.Name = nombreForm Then
        For Each ctl In frm.Controls
            If ctl.Name = datoBox Then
                ctl.Text = campotec.Text
            End If
        Next ctl
    End If
Next frm

Unload Me
    
End Sub

Saludos