Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Dim - TopicsExpress

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Dim key As String Label1.Caption = Hex$(KeyCode) + "h" key = Label1.Caption Select Case key Case Is = "27h" Shape1.Left = Shape1.Left + 100 Label1.Caption = "sang phai" Case Is = "26h" Shape1.Top = Shape1.Top - 100 Label1.Caption = "len" Case Is = "25h" Shape1.Left = Shape1.Left - 100 Label1.Caption = "sang trai" Case Is = "28h" Shape1.Top = Shape1.Top + 100 Label1.Caption = "xuong" Case Is = "4Fh" Shape1.Shape = 2 Label1.Caption = "hinh ovan" Case Is = "54h" Shape1.Shape = 3 Label1.Caption = "hinh tron" Case Is = "56h" Shape1.Shape = 1 Label1.Caption = "hinh vuong" Case Is = "43h" Shape1.Shape = 0 Label1.Caption = "hinh chu nhat" Case Is = "45h" Shape1.Shape = 5 Label1.Caption = "hinh elip" Case Is = "59h" Label1.Caption = "vang" Shape1.FillColor = vbYellow Case Is = "44h" Label1.Caption = "do" Shape1.FillColor = vbRed Case Is = "58h" Label1.Caption = "xanh" Shape1.FillColor = vbGreen End Select End Sub

6 facts still unknown to most of us: 1. 90% of people in

JE PROFITE DE CE JOUR DE FÊTE DE L AI-ID POUR ATTIRER L A

Janiva Magness Yeah. First sighting. There was no doubt. Not

Don Florino, senescente caballero, entró en una farmacia y le

video, v ktorom sú všetky scény s Naty zo včerajšieho

"New test results that the Texas Education Agency released Friday

Kayanya setiap hari tegang terus ya dengan berbagai

What you need to know is this, before a dream is realized, the

"Hoy te pienso y a pesar de que llueve no caerá lagrima

What if I could introduce you to the most natural way to lose