初学Visual Basic

'取得键盘输入的字符
'把窗体的KeyPreview属性设置成True，
'然后在Form_KeyPress 事件里编写程序代码如下：
Dim S As String
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii > 10 Then
    Print S
End If
S = S + Str(KeyAscii)

End Sub

'向左移动
Private Sub Command1_Click()
    Form1.Left = Form1.Left - 8
End Sub
'向右移动
Private Sub Command2_Click()
    Form1.Left = Form1.Left + 8
End Sub
'向下移动
Private Sub Command3_Click()
    Form1.Top = Form1.Top + 10
End Sub
'向上移动
Private Sub Command4_Click()
    Form1.Top = Form1.Top - 10
End Sub
'最小化
Private Sub Command5_Click()
    Form1.WindowState = vbMinimized
End Sub
'最大化
Private Sub Command6_Click()
    Form1.WindowState = vbMaximized
End Sub
'正常
Private Sub Command7_Click()
    Form1.WindowState = vbNormal
End Sub
'退出
Private Sub Command8_Click()
    End
End Sub