Следующий пример поможет вам лучше понять, как проектируются классы. Я использую класс SmartForm для хранения и получения информации о положении и размере форм на экране. Такие формы «запоминают» свое положение и состояние между запусками приложения. Когда все будет готово, вы можете включить этот класс в свою программную библиотеку и использовать

Функции API также могут вызываться из специально написанных функций. Последние называются оболочками, потому что их настоящая работа скрывается внутри вспомогательного кода. Например, если вы захотите отключать звук в своем приложении, создайте оболочку для функции API:

Public Sub PlayWav(filename As String, soundon As Boolean) Dim rc As long

If soundon = True Then

Rc = sndPlaySound(filename,