X=MsgBox("Do you agree to free cake?",4+32+4096,"Cake")
if X="6" then
Y=MsgBox("There has been an error in baking your free cake. Try again tomorrow.",16+4096,"Windows Bakery")
else
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        ProgressBar1.Value += 1
        If ProgressBar1.Value = 30 Then
            Timer1.Enabled = False
        End If

    End Sub