Public Class frmAbout

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        Me.Close()
    End Sub

    Private Sub frmAbout_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.lblVersion.Text = "Version " & Globals.clsapplication.sVersion.Value
        Me.lblversiondatum.Text = Globals.Versionsdatum

    End Sub
End Class