Dialog O aplikaci

Postup:
Zalo₧te nov² projekt. Do deklaraΦnφ Φßsti formulß°e zapiÜte:

Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long

Na formulß° p°idejte tlaΦφtko a na jeho udßlost Click:

Shellabout Me.hWnd, "Aplikace", "R∙zn² text", Me.Icon

Spus¥te aplikaci. Po klepnutφ na tlaΦφtko se zobrazφ dialog.

Zp∞t

Autor: The Bozena