All pastes #570096 Raw Edit

Stuff

public text v1 · immutable
·published 2007-06-16 15:40 UTC
rendered paste body
Private Sub Command1_Click()
MsgBox "Guten Morgen!", 16, Time
Case 13 To 18
MsgBox "Guten Tag!", 16, Time
Case 18 To 24
MsgBox "Guten Nacht!", 16, Time
MsgBox "Guten Morgen!", 32, Time
Case 13 To 18
MsgBox "Guten Tag!", 32, Time
Case 18 To 24
MsgBox "Guten Nacht!", 32, Time
MsgBox "Guten Morgen!", 48, Time
Case 13 To 18
MsgBox "Guten Tag!", 48, Time
Case 18 To 24
MsgBox "Guten Nacht!", 48, Time
Case 9 To 13
MsgBox "Guten Morgen!", 64, Time
Case 13 To 18
MsgBox "Guten Tag!", 64, Time
Case 18 To 24
MsgBox "Guten Nacht!", 64, Time
End Sub