| {\rtf1\ansi\ansicpg1252\deff0\deflang1044{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}} \viewkind4\uc1\pard\f0\fs17 This code uses the ShellAbout function to display an about box. The problem with creating a about box with this method is that Microsoft's name appears on it. \par \par Place this in the General Declarations of a form: \par \par 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 \par \par To display the about box use: \par \par Dim sInfo As String \par sInfo = "Copyright " & Chr(169) & " 2001" \par sInfo = sInfo & "My Large Multi National Software Corp" & vbCrLf \par ShellAbout Me.hwnd, "The Title of my Application", sInfo, Me.Icon \par } |
Adding an AboutBox |
India web developer web development India | India web development company India ecommerce web developer