Page 80 - 4450

значень слів, але тепер ви модифікуєте її, щоб у ній для
відображення інформації використовувалася друга форма.

Рисунок 12.2 – Результат роботи програми

Програмний код:
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
List1.AddItem "aprire"
List1.AddItem "ascoltare"
List1.AddItem "bere"
List1.AddItem "cucinare"
List1.AddItem "dormire"
List1.AddItem "pagare"
List1.AddItem "scrivere"
End Sub
Private Sub List1_DblClick()
Select Case List1.ListIndex
Case 0
Def = "відкрити"
Case 1
Def = "слухати"
Case 2
Def = "пити"

78