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