Private Type Tecla
    Caption As String
    X As Integer
    Y As Integer
End Type
 
Const BCKCOLOR = vbBlack
Const FNTCOLOR = vbWhite
 
Dim TECLA_WDT As Integer
Dim TECLA_HGT As Integer
Dim RAIZ_X As Integer
Dim RAIZ_Y As Integer
 
Dim GBL_M_X As Integer
Dim GBL_M_Y As Integer
 
Dim Buffer As String
 
Dim teclado(0 To 39) As Tecla
 
Private Sub pinta_Teclado()
    Me.Line (RAIZ_X, RAIZ_Y)-(RAIZ_X + TECLA_WDT * 10, RAIZ_Y + TECLA_HGT * 4), BCKCOLOR, BF
    Me.FORECOLOR = FNTCOLOR
    For i% = 0 To 39
        Me.Line (RAIZ_X + teclado(i).X * TECLA_WDT, RAIZ_Y + teclado(i).Y * TECLA_HGT)- _
            (RAIZ_X + (teclado(i).X + 1) * TECLA_WDT, RAIZ_Y + (teclado(i).Y + 1) * TECLA_HGT) _
            , FNTCOLOR, B
        Me.CurrentX = RAIZ_X + (teclado(i).X * TECLA_WDT) + _
                (TECLA_WDT / 2 - Me.TextWidth(teclado(i).Caption) / 2)
        Me.CurrentY = RAIZ_Y + (teclado(i).Y * TECLA_HGT) + _
                (TECLA_HGT / 2 - Me.TextHeight(teclado(i).Caption) / 2)
        Me.Print teclado(i).Caption
    Next
End Sub
 
Private Sub inicializa_Teclado()
    Dim reserved() As Integer
    Dim Teclas As String
    Dim rndPos As Integer
    Dim cVal As Integer
 
    Teclas = "0123456789ABCDEFGHIJKLMNÑOPQRSTUVWXYZ."
    ReDim reserved(0 To 37)
    For i% = 0 To 37
        reserved(i) = i
    Next i
 
    For i% = 0 To 37
        rndPos = Int(Rnd * UBound(reserved))
        cVal = reserved(rndPos)
        For j% = rndPos To UBound(reserved) - 1
            reserved(j) = reserved(j + 1)
        Next j
 
        If UBound(reserved) > 0 Then ReDim Preserve reserved(UBound(reserved) - 1)
 
        teclado(i).Y = Int(cVal / 10)
        teclado(i).X = cVal - teclado(i).Y * 10
        teclado(i).Caption = Mid(Teclas, i + 1, 1)
    Next i
 
    teclado(38).Y = 3
    teclado(38).X = 8
    teclado(38).Caption = "OK"
 
    teclado(39).Y = 3
    teclado(39).X = 9
    teclado(39).Caption = "BCK"
End Sub
 
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    GBL_M_X = -1: GBL_M_Y = -1
    If X >= RAIZ_X And Y >= RAIZ_Y And X <= RAIZ_X + (TECLA_WDT * 10) And _
    Y <= RAIZ_Y + (TECLA_WDT * 4) Then
        GBL_M_X = Fix(((X - RAIZ_X) / TECLA_WDT))
        GBL_M_Y = Fix(((Y - RAIZ_Y) / TECLA_HGT))
    End If
End Sub
 
Private Sub Form_Click()
    Dim isFound As Boolean
    Dim index As Integer
    If GBL_M_X <> -1 And GBL_M_Y <> -1 Then
        While index <= 39 And Not isFound
            If teclado(index).X = GBL_M_X And teclado(index).Y = GBL_M_Y Then
                isFound = True
            Else
                index = index + 1
            End If
        Wend
 
        If teclado(index).Caption = "BCK" Then
            If Len(Buffer) > 0 Then
                If Len(Buffer) = 1 Then
                    Buffer = ""
                Else
                    Buffer = Mid(Buffer, 1, Len(Buffer) - 1)
                End If
            End If
        ElseIf teclado(index).Caption = "OK" Then
            MsgBox "Buffer: " & Chr$(34) & Buffer & Chr$(34)
        Else
            Buffer = Buffer & teclado(index).Caption
        End If
 
        Me.Caption = Buffer
    End If
End Sub
 
Private Sub Form_Load()
    Randomize
    Me.AutoRedraw = True
    Me.ScaleMode = 3
    TECLA_WDT = 48
    TECLA_HGT = 16
    RAIZ_X = Me.ScaleWidth / 2 - TECLA_WDT * 10 / 2
    RAIZ_Y = Me.ScaleHeight - TECLA_HGT * 4
    Call inicializa_Teclado
    Call pinta_Teclado
End Sub
 
Private Sub Form_Resize()
    TECLA_WDT = 48
    TECLA_HGT = 16
    RAIZ_X = Me.ScaleWidth / 2 - TECLA_WDT * 10 / 2
    RAIZ_Y = Me.ScaleHeight - TECLA_HGT * 4
    Me.Cls
    Call pinta_Teclado
End Sub
 
 

Pass.txt = pass.txt & Botonletra(index).caption