Sample Code 2

Class CError.

'Class CError

Option Explicit

Public ErrorMessage As String

Public Sub Show(ByVal ShowModal As Boolean)

    Dim fError As New FormError

    fError.Label1 = ErrorMessage

    If ShowModal Then

        fError.Show vbModal

    Else

        fError.Show

    End If

End Sub

Sample Code 3