Research of Onscreen Keyboard VB6

http://www.vb-helper.com/howto_binary_to_text.html

Simple demo of Onscreen Keyboard and Sendkey function
http://vbcity.com/forums/t/16721.aspx?PageIndex=1

List of Onscreen Keycode
http://windowssecrets.com/forums/showthread.php/32081-send-keys-(vb6)

Sample of how wait function process
http://www.vbforums.com/showthread.php?514100-Sendkeys-Wait-Time
http://www.freevbcode.com/ShowCode.asp?ID=6186
http://www.xtremevbtalk.com/showthread.php?t=251867
http://www.xtremevbtalk.com/archive/index.php/t-222201.html

Differenciate of Sendkey, SendInput, SendPlay and etc
http://www.autohotkey.com/docs/commands/Send.htm

Reading lines of a text-file into an array
http://forums.codeguru.com/showthread.php?232912-Reading-lines-of-a-text-file-into-an-array
http://www.programmersheaven.com/mb/VBasic/232379/232379/read-data-into-an-array-from-txt-file/

Read and Write INI File
http://www.freevbcode.com/ShowCode.asp?ID=5390

Sorting Array
http://www.freevbcode.com/ShowCode.asp?ID=3197

On Screen Keyboard with VB6

http://www.vbforums.com/showthread.php?508872-on-screen-keyboard-using-VB6


Private Sub cmdKey_Click(Index As Integer)
Static boShift As Boolean
Dim strInput As String
Dim intASC As Integer
If Index = 1 Then
    boShift = Not boShift
    If boShift = True Then
        cmdKey(1).Caption = "SHIFT (ON)"
    Else
        cmdKey(1).Caption = "SHIFT (OFF)"
    End If
Else
    If boShift = True Then
        intASC = Index
    Else
        intASC = Index + (Asc("a") - Asc("A"))
    End If
    If Index = 32 Then intASC = Index
    strInput = Chr(intASC)
    Text1.Text = Text1.Text & strInput
End If
End Sub

Private Sub Form_Load()
Dim intI As Integer
cmdKey(0).Left = 240
cmdKey(0).Top = 360
cmdKey(0).Width = 495
cmdKey(0).Height = 375
Me.Width = (26 * (cmdKey(0).Width + 50)) + (2 * cmdKey(0).Left)
For intI = Asc("A") To Asc("Z")
    Load cmdKey(intI)
    cmdKey(intI).Caption = Chr(intI)
    If intI = 65 Then
        cmdKey(intI).Left = 240
        cmdKey(intI).Top = 360
    Else
        cmdKey(intI).Left = cmdKey(intI - 1).Left + cmdKey(intI - 1).Width + 50
        cmdKey(intI).Top = cmdKey(intI - 1).Top
    End If
    cmdKey(intI).Visible = True
Next intI
'
' Space Bar
'
Load cmdKey(32)
cmdKey(32).Caption = "Space"
cmdKey(32).Top = cmdKey(0).Top + cmdKey(0).Height + 50
cmdKey(32).Width = 6375
cmdKey(32).Visible = True
cmdKey(32).Left = (Me.Width / 2) - (cmdKey(32).Width / 2)
'
' Shift Key
'
Load cmdKey(1)
cmdKey(1).Caption = "SHIFT (OFF)"
cmdKey(1).Top = cmdKey(0).Top + cmdKey(0).Height + 50
cmdKey(1).Left = cmdKey(0).Left
cmdKey(1).Width = 1455
cmdKey(1).Visible = True
End Sub