'--   Listing   3.2   3LIST02.TXT   Procedury   obsugi   zdarze klawiaturowych

Sub text1_KeyDown (KeyCode As Integer, Shift As Integer) 
  Text2.Text = "Nacisne klawisz ..." 
End Sub 

Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) 
  text2.Text = "Zwolnie nacinity klawisz" 
End Sub 

