Sub Main()

Set oEnv = New clsD3Environment

' Using text boxes.

txtVersion.Text = oEnv.brVersion

txtCopyright.Text = oEnv.brCopyright

txtDescription.Text = oEnv.brDescription

Set oEnv = Nothing

End Sub