Tutorial_3

'Cruel Games

Public Class Form1

    Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click
        If (rbnLess.Checked) Then
            MsgBox("sorry, you are too young, GTFO please")
        ElseIf (rbnBetween.Checked) Then
            MsgBox("Let's party rock")
        Else
            MsgBox("You are too old, kill yourself by the hitting the wall")
        End If
    End Sub
End Class

'Guess number game
Public Class Form1
    Private guess As Integer
    Private Sub btnCheck_Click(sender As Object, e As EventArgs) Handles btnCheck.Click
        Dim usersGuess As Integer = nudGuess.Value
        If (usersGuess > guess) Then
            MsgBox("Your number is more, bro")
        ElseIf (usersGuess < guess) Then
            MsgBox("You number is less, bro")
        Else
            MsgBox("You Won !!! ")
            End
        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim r As Random = New Random
        guess = r.Next(100)
    End Sub
End Class

'Leap Year
number
     \
     /\
    F  :4