Menekan Beberapa Tombol Keyboard Bersamaan

'Persiapan: 1. Buat 1 Project baru dengan 1 Form dan 5 Label.
' 2. Copy-kan coding berikut ke dalam editor form yang bertalian.
'-------------------------------------------------------------------------------

'Coding berikut ini menunjukkan kepada kita tombol yang sedang ditekan, Atas,
'Bawah, Kiri, Kanan, dan Spasi. Anda bisa saja mengganti dengan pengecekan
'pada tombol keyboard lainnya.

Dim currentKeys(0 To 250) As Boolean 'Deklarasi variabel global

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'Menekan sebuah tombol dan menahannya, akan menggunakan event KeyDown.
'Jadi kita memeriksa jika User menekan tombol atau
'apakah tombol sudah ditekan.
If currentKeys(KeyCode) = False Then
'Update array dari tombol yang ditekan
currentKeys(KeyCode) = True
If KeyCode = vbKeyLeft Then Label1 = "Kiri"
If KeyCode = vbKeyRight Then Label2 = "Kanan"
If KeyCode = vbKeyUp Then Label3 = "Atas"
If KeyCode = vbKeyDown Then Label4 = "Bawah"
If KeyCode = vbKeySpace Then Label5 = "Spasi"
End If
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
'Update array yang tombol keyboardnya tidak ditekan.
currentKeys(KeyCode) = False
If KeyCode = vbKeyLeft Then Label1 = ""
If KeyCode = vbKeyRight Then Label2 = ""
If KeyCode = vbKeyUp Then Label3 = ""
If KeyCode = vbKeyDown Then Label4 = ""
If KeyCode = vbKeySpace Then Label5 = ""
End Sub