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