About Form
Ivan F Moala
Google
Can Do
Visits here
Goto Guest book sign in page [Home]
Greatest place to be
Thanks for visiting my site lucky visitor:
This page was last updated on: April 25, 2006
Copyright © 2002. XcelFiles. All Rights Reserved Ivan F Moala
Tell a friend about this page
Here's a simple routine that displays your OS about form. Use it as a splash screen to display the familiar about form that microsoft use. Just place in the details you want it to display. See image and comments in the code below.
Option Explicit



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



Declare Function GetActiveWindow Lib "user32" () As Long



'// Define your message constants here

Const strApp As String = "My Programe"

Const strMyDetails As String = " Ivan F Moala, 3 Sept, 2001"



Sub About()

Dim hWnd As Long

Dim x As Long

  

hWnd = GetActiveWindow()

x = ShellAbout(hWnd, strApp, Chr(13) & Chr(169) & strMyDetails _

    & Chr(13), 0)



End Sub