'-Listing  3.1  3LIST01.TXT - procedury dla dwch zdarze podczas przecigania obiektu. 


Sub  Image1_DragOver  (  Source  As  Control,  X As Single, Y As Single, State As Integer ) 
  Text1.Text = "Ja fruwam!" 
End Sub 

Private  Sub  image1_DragDrop( SOurce As Control, X As Single, Y As Single ) 
  Text1.Text = "Niestety spadem..." 
End Sub 
