Private
Sub
TextBox1_MouseUp(
ByVal
Button
As
Integer
,
ByVal
Shift
As
Integer
,
ByVal
X
As
Single
,
ByVal
Y
As
Single
)
Select
Case
True
Case
TextBox1.Value =
"Hinweise beginnen"
:
TextBox1.Value =
"Rechnung erstellen"
Case
TextBox1.Value =
"Rechnung erstellen"
:
TextBox1.Value =
"Paket wiegen"
Case
TextBox1.Value =
"Paket wiegen"
:
TextBox1.Value =
"Portoberechnen"
Case
TextBox1.Value =
"Portoberechnen"
:
TextBox1.Value =
"Kommissionierung prüfen"
Case
TextBox1.Value =
"Kommissionierung prüfen"
:
TextBox1.Value =
"-Ende - Auftrag abgeschnlossen"