Private Sub
|
Private Sub Man_Click() ManInBoat 'Call IntoBoat(Me.Man, StateOfMan) End Sub Private Sub Wolf_Click() WolfInBoat 'Call IntoBoat(Me.Wolf, StateOfWolf) End Sub Private Sub Goat_Click() GoatInBoat 'Call IntoBoat(Me.Goat, StateOfGoat) End Sub Private Sub Cabbage_Click() CabbageInBoat 'Call IntoBoat(Me.Cabbage, StateOfCabbage) End Sub |
| Листинг 6.4. |
| Закрыть окно |
