15 lines
548 B
VB.net
15 lines
548 B
VB.net
Public Class frmSplash
|
|
|
|
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
|
|
|
|
End Sub
|
|
|
|
Private Sub frmSplash_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
|
Me.lblVersion.Text = "Version " & Globals.clsapplication.sVersion.Value
|
|
Me.lblVersiondatum.text = Globals.Versionsdatum
|
|
End Sub
|
|
End Class |