< Public Sub DisplayHelpAbout (MyApp As App, Optional ExtraText As String = "") (?)

Comments

    
    'Displays info box with product information
    'optional extra text: use ~ symbols to represent new lines
    '

Public Sub DisplayHelpAbout (MyApp As App, Optional ExtraText As String = "")
Dim Msg As String
    
    Msg = Msg & GetVersionInfo(MyApp) & vbCrLf
    Msg = Msg & "Copyright © Oliver White " & vbCrLf
    Msg = Msg & "www.blibbleblobble.co.uk" & vbCrLf
    Msg = Msg & Replace(ExtraText, "~", vbCrLf) & vbCrLf
    Msg = Replace(Msg, vbCrLf & vbCrLf, vbCrLf)

    MsgBox Msg, vbInformation, MyApp.Title
End Sub

Copying, Return to index