Hallo Zusammen,
ich habe folgendes vor:
If
cmd1.BackColor = RGB(255, 0, 0)
Or
cmd2.BackColor = RGB(255, 0, 0)
Or
cmd3.BackColor = RGB(255, 0, 0)
Or
cmd4.BackColor = RGB(255, 0, 0)
Then
Label1.Caption =
"Hallo"
ElseIf
cmd1.BackColor = RGB(255, 0, 0)
And
cmd.BackColor = RGB(255, 0, 0)
Or
cmd2.BackColor = RGB(255, 0, 0)
And
cmd4.BackColor = RGB(255, 0, 0)
Then
Label1.Caption =
"Guten Morgen"
ElseIf
cmd1.BackColor = RGB(255, 0, 0)
And
cmd2.BackColor = RGB(255, 0, 0)
And
cmd3.BackColor = RGB(255, 0, 0)
And
cmd4.BackColor = RGB(255, 0, 0)
Then
Label1.Caption =
"Guten Abend"
ElseIf
cmd1.BackColor = RGB(255, 0, 0)
And
cmd2.BackColor = RGB(255, 0, 0)
Or
cmd2.BackColor = RGB(255, 0, 0)
And
cmd3.BackColor = RGB(255, 0, 0)
Or
cmd3.BackColor = RGB(255, 0, 0)
And
cmd4.BackColor = RGB(255, 0, 0)
Or
cmd4.BackColor = RGB(255, 0, 0)
And
cmd1.BackColor = RGB(255, 0, 0)
Then
Label1.Caption =
"Guten Tag"
Else
Label1.Caption =
"Bye"
End
If