12 lines
431 B
VB.net
12 lines
431 B
VB.net
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 |