Visual Basic- Program "o wszystkim i o niczym"

Private Sub Form_Load()
Dim Dzien As Integer
Dzien = DatePart("w", Date)
Select Case Dzien
Case 1
lblDni.Caption = "Niedziela, jutro ch... poniedziałek"
Case 2
lblDni.Caption = "Dzisiaj jest poniedziałek, początek wspaniałego tygodnia"
Case 3
lblDni.Caption = "Wtorek, na szczęście to nie poniedziałek"
Case 4
lblDni.Caption = "Środa, za chwilę z górki"
Case 5
lblDni.Caption = "Czwartek, wczoraj chyba przesadziłeś, boli głowa co ?"
Case 6
lblDni.Caption = "Cudownie już piątek"
Case 7
lblDni.Caption = "Sobota, co Ci będę mówił"
End Select
End Sub

Private Sub cmdLosuj_Click()
lblLosowa1.Caption = Int((9 * Rnd) + 1)
End Sub

Private Sub cmdTak_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdTak.Left = Int((4100 - 100 + 1) * Rnd + 100)
cmdTak.Top = Int((3500 - 1000 + 1) * Rnd + 1000)
End Sub

Private Sub cmdNie_Click()
lblPytanie.Caption = "Tak też myślałem! Pełen optymizm u Pana zauważam!"
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
a.Visible = True
End Sub