Создание формы о программе

Все наверника видили как в любом Windows'ском приложении написан раздел о программе. Тык вот, сейчас мы напишим тоже самое, только в вашей программе. Для этого шелкните по обьекту, по нажатию на который будет происходить вызов спарвки, это может быть button или Timer, но в основном это меню; и напишите слудующий код:

ShowMSAboutBox Me.hWnd, "тут название проги", "Тут любой текст", Me.Icon

Конечно сейчас работать ниего нибудет. Оно и не удивительно, ведь мы еще не написали сам модуль. Создадим модуль и назавем его ShowMicrosoftAboutBoxModule. И впишим туда следующий код:

Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hWnd As Long, ByVal App As String,_ ByVal OtherStuff As String, ByVal Icon As Long) As Long 'ВНИМАНИЕ!!! символом "_" обозначен перенос, если вы все написали в одну строку, то символ "_" следует убрать!

Function ShowMSAboutBox(AboutProgramHWND As Long, AboutPrgApp As String, AboutPrgNote As String, AboutProgramIcon As Long)

On Error Resume Next

Call ShellAbout(AboutProgramHWND, AboutPrgApp, AboutPrgNote, AboutProgramIcon)

End Function

Все готово! Можно проверить, и все работает!