18 lines
691 B
VB.net
18 lines
691 B
VB.net
Public Class SplashForm
|
|
Private Sub SplashForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
If My.Settings.SoftwareType = "PADM" Then
|
|
Me.C1PictureBox1.Visible = False
|
|
Me.C1PictureBox2.Visible = True
|
|
Else
|
|
Me.C1PictureBox1.Visible = True
|
|
Me.C1PictureBox2.Visible = False
|
|
End If
|
|
Me.Label1.Text = "Version: "
|
|
Label4.Text = Globals.Version
|
|
Me.Label2.Text = "Datum:"
|
|
Label3.Text = Globals.Versionastaum
|
|
Label5.Text = "Stefan Hutter Unternehmensberatung"
|
|
Label6.Text = "Staldenbachstrasse 13"
|
|
Label7.Text = "8808 Pfäffikon SZ"
|
|
End Sub
|
|
End Class |