divers layout, etc

Aviso/frmInfoMeldung.vb

@@ -0,0 +1,35 @@
+Imports System.Threading
+
+Public Class frmInfoMeldung
+    Private Sub frmInfoMeldung_Load(sender As Object, e As EventArgs) Handles Me.Load
+        PictureBox1.BackgroundImage = My.Resources.herbert
+        Label1.Text = "Hallo, ich bin Herbert – dein neuer KI-Assistent bei VERAG.
+                Noch bekomme ich den letzten Feinschliff, aber schon bald stehe ich dir mit Rat und Tat zur Seite.
+                Egal ob Zollfragen, Informationen zu Prozessen, Hilfe bei AVISO oder einfach die schnelle Suche nach einer Antwort – frag mich einfach. Ich bin rund um die Uhr für dich da und unterstütze dich, wo ich kann.
+                Ich verspreche zwar keine Wunder, aber ich gebe immer mein Bestes. Und wenn ich etwas einmal nicht sicher weiß, sage ich das offen, statt etwas zu erfinden.
+                Mein Ziel ist ganz einfach: Dir den Arbeitsalltag ein Stück leichter zu machen, Zeit zu sparen und dir lästige Sucherei abzunehmen.
+                Ich freue mich schon darauf, dich bald unterstützen zu dürfen.
+                Bis bald!"
+
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+
+        Me.Refresh()
+        PictureBox1.BackgroundImage = My.Resources.herbert_happy
+        Me.Refresh()
+        Thread.Sleep(1000)
+        Me.Close()
+    End Sub
+
+    Private Sub Button1_MouseDown(sender As Object, e As MouseEventArgs) Handles Button1.MouseDown
+        Me.Refresh()
+        PictureBox1.BackgroundImage = My.Resources.herbert_afraid
+        Me.Refresh()
+        Thread.Sleep(500)
+    End Sub
+    Private Sub Button1_Mouseup(sender As Object, e As MouseEventArgs) Handles Button1.MouseUp
+        PictureBox1.BackgroundImage = My.Resources.herbert
+    End Sub
+
+End Class