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