初学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