Como hacer errores?

[Programmer]

Pega, en el evento click de cada label el codigo Text1.Text = Text1.Text & LabelX.Caption donde X es el numero que se le agrega automaticamente a cada label, suponiendo que no los has renombrado, esto quedaria mas o menos asi.

Código:

Private Sub Label1_Click()
  Text1.Text = Text1.Text & Label1.Caption
End Sub

Tecnicamente seria similar para los demas labels, y bueno, si usas una matriz de labels pues solo sera necesario un evento click para todos los labels de la matriz, bastando solo algo como

Código:

Private Sub Label1_Click(Index As Integer)
  Text1.Text = Text1.Text & Label1(Index).Caption
End Sub

Saludos.