The Final Touch!

We are going to complete our control, giving it an about box, for this example i will use a
standard message box, you could also call a form you created but for this example we are just
going to use a standard windows message box.

Add the fowling code to the ShadowLabel User Control:

Public Sub ShowAboutBox()
Dim dlgmessage As String
dlgmessage = "ShadowLabel control by MaximusVb" & vbCrLf & "This control is based on work on the site" & vbCrLf & "http://maximusvb.angelcities.com" & vbCrLf & "E-mail: MaximusSoftware@hotmail.com" & vbCrLf & "Release Date: 03-03-2003"
MsgBox dlgmessage, vbOKOnly + vbInformation, "ShadowLabel"
End Sub

Click in the Tools menu, Procedure Attributes and select the ShowAboutBox procedure.



On the Procedure ID select AboutBox and click on Ok. We just specified that the procedure ShowAboutBox
corresponds to the about box of the control, when we click on the AboutBox property the sub ShowAboutBox
is executed. Save your work and go to a form with ShadowLabel control and click in the properties window and
you will see and about property, it will display the message box saying woo created this control.
 

[ Creating a blank User Control ] [ Designing the ShadowLabel control ] [ Loading the ActiveX Ctrl Interface Wizard ] [ Standard Properties ] [ Custom Properties ] [ Mapping Properties and Events ] [ Set Attributes ] [ The Wizard Code ] [ Changes to the Wizard code ] [ The Control ] [ Property Pages Design ] [ Property Pages in Action ] [ Making Our Custom Property Page ] [ The Final Touch! ] [ The End! ]