16 lines
680 B
Plaintext
16 lines
680 B
Plaintext
Public Class frmAbout
|
|
|
|
Private Sub frmAbout_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
|
|
ApplicationTitle.Text = "Lehrlingsparcours"
|
|
Copyright.Text = My.Application.Info.Copyright
|
|
txtVersion.Text = My.Application.Info.Version.Major.ToString + "." + My.Application.Info.Version.Minor.ToString
|
|
Dim i As Integer = 1
|
|
Me.txtserial.text = "IN" & Date.Now.ToString("ddMMyy") & i.ToString("000000")
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
|
|
' Dim f As New SplashScreen1
|
|
'f.ShowDialog()
|
|
Me.Close()
|
|
End Sub
|
|
End Class |