？虚拟键盘的问题？急死我了！！！！

Question

Option ExplicitDeclare Function GetFocus Lib "coredll" () As Long
Declare Function SendMessage Lib "coredll" Alias "SendMessageW" ( _
    ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    ByVal lParam As Long) As LongConst LVS_EX_FULLROWSELECT = &H20
Const LVM_FIRST = &H1000
Const LVM_GETEXTENDEDLISTVIEWSTYLE = &H1037
Const LVM_SETEXTENDEDLISTVIEWSTYLE = &H1036Private Sub Form_Load()
    Dim lStyle As Long    ListViewCtrl1.View = lvwReport
    ListViewCtrl1.LabelEdit = lvwManual    'Add Column headers
    ListViewCtrl1.ColumnHeaders.Add 1, "First", "First"
    ListViewCtrl1.ColumnHeaders.Add 2, "Second", "SECOND"
    ListViewCtrl1.ColumnHeaders.Add 3, "Third", "THIRD"
    
    'Add first ListItem
    ListViewCtrl1.ListItems.Add 1, "Item1", "First Item"
    ListViewCtrl1.ListItems(1).SubItems(1) = "TEST"
    ListViewCtrl1.ListItems(1).SubItems(2) = "TEST"    'Add second ListItem
    ListViewCtrl1.ListItems.Add 2, "Item2", "Second Item"
    ListViewCtrl1.ListItems(2).SubItems(1) = "TEST"
    ListViewCtrl1.ListItems(2).SubItems(2) = "TEST"
     
    ListViewCtrl1.SetFocus
        
    lStyle = SendMessage(GetFocus(), LVM_GETEXTENDEDLISTVIEWSTYLE, 0, 0)
    lStyle = lStyle Or LVS_EX_FULLROWSELECT
    Call SendMessage(GetFocus(), LVM_SETEXTENDEDLISTVIEWSTYLE, 0, lStyle)
End Sub