Sample Code 5

Class CAbout.

'Class CAbout

'This class is a wrapper around form FormAbout

'It exposes one method (Show) that

'displays the form modally

Option Explicit

Public Sub Show()

    Dim fAbout As New FormAbout

    fAbout.Show vbModal

End Sub

Sample Code 6