Rem Для того чтобы не засорять список, событие передвижения указателя
Rem мыши над формой мы обрабатываем только при нажатой левой клавише
Private Sub Form_MouseMove(ByVal button As Integer, ByVal shift As Integer, x, y)
If button = 1 Then List1.AddItem «Form_MouseMove»
End Sub6. Перейти в окне Project Explorer к форме Form2. В ее модуле следует ввести код, приведенный в листинге 3.10. Листинг 3.10
Private Sub Form_QueryUnload(ByVal cancel As Integer, unloadmode)
Form1.List1.AddItem «Form2 QueryUnload»
End SubPrivate Sub Form_Activate
Form1.List1.AddItem «Form2 Activate»
End Sub
Private Sub Form_Deactivate
Form1.List1.AddItem «Form2 Deactivate»
End Sub
Private Sub Form_GotFocus
Form1.List1.AddItem «Form2 Получила фокус»
End Sub
Private Sub Form_LostFocus
Form1.List1.AddItem «Form2 Потеряла фокус»
End Sub
Private Sub Form_Paint
Form1.List1.AddItem «Form2 перерисована»
End SubPrivate Sub Form_Load
Form1.List1.AddItem «Form2 загружена»
End SubPrivate Sub Form_Resize
Form1.List1.AddItem « Form2 Resize»
End Sub