Sub Main()

Set oEnv = New clsD3Environment

' Using text boxes

txtVersion.Text = oEnv.brVersion

txtCopyright.Text = oEnv.brCopyright

txtDescription.Text = oEnv.brDescription

txtType.Text = oEnv.brType

Set oEnv = Nothing

End Sub