春江花月夜 翻译:vb高手请帮我解决一下这个问题

这个代码什么意思
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Static i As Integer
i = i + 1
If i > 12 Then
Me.Cls
i = 0
CurrentX = 0
CurrentY = 0
End If
Select Case Shift
Case 0:
Print "现在您只按下了KeyCode码为" + Format(KeyCode) + "-" + Chr(KeyCode) + "的键"
Case 1:
Print "现在您按下了Shift,KeyCode码为" + Format(KeyCode) + "-" + Chr(KeyCode) + "的键"
Case 3:
Print "现在您按下了Shift、Ctrl,KeyCode码为" + Format(KeyCode) + "-" + Chr(KeyCode) + "的键"
Case 5:
Print "现在您按下了Shift、Alt,KeyCode码为" + Format(KeyCode) + "-" + Chr(KeyCode) + "的键"
Case 2:
Print "现在您按下了Ctrl,KeyCode码为" + Format(KeyCode) + "-" + Chr(KeyCode) + "的键"
Case 4:
Print "现在您按下了ALT,KeyCode码为" + Format(KeyCode) + "-" + Chr(KeyCode) + "的键"
Case 6:
Print "现在您按下了Ctrl、Alt,KeyCode码为" + Format(KeyCode) + "-" + Chr(KeyCode) + "的键"
Case 7:
Print "现在您按下了Ctrl、Alt、Shift,KeyCode码为" + Format(KeyCode) + "-" + Chr(KeyCode) + "的键"
End Select
End Sub