Dim yon As String
Dim surat As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDown Then yon = "asagi"
If KeyCode = vbKeyUp Then yon = "yukari"
If KeyCode = vbKeyLeft Then yon = "sol"
If KeyCode = vbKeyRight Then yon = "sag"
End Sub
Private Sub...