با فشار هر کلید میتوانید کد اسکی آن را بدست آورید

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

  Me.FontSize = 50

  Me.FontBold = True

  Me.FontName = "Arial"

   Cls

    Print KeyCode

End Sub

دانلود