35 lines
1.7 KiB
VB.net
35 lines
1.7 KiB
VB.net
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 |