  If (KeyCode = vbKeySpace) Or (KeyCode = vbKeyReturn) Then
        If Not (tvwOpt.SelectedItem Is Nothing) Then
            m_eNodeClickReason = eoptMouseDown
            tvwOpt_NodeClick tvwOpt.SelectedItem
        End If
        KeyCode = 0
    Else
        m_eNodeClickReason = eoptKeyDown
    End If
End Sub

Private Sub tvwOpt_KeyPress(KeyAscii As Integer)
    'Debug.Print KeyAscii
End Sub

Private Sub tvwOpt_MouseDown(Button As Integer, Shift As Integer, x As Single,
 y As Single)
    'Debug.Print "Mou