ASCII碼對照表

 Private Sub Picture1_Click()
Dim asc As Integer, i As Integer
Picture1.Print " ASCII碼對照表"
For asc = 32 To 126
Picture1.Print Tab(7 * i + 2); Chr(asc); "="; asc;
i = i + 1
If i = 7 Then i = 0: Picture1.Print
Next asc
End Sub