Option Strict On

Public Class frmYahtzee

    Private Sub frmYahtzee_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Randomize()
    End Sub

    Private Sub btnRoll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRoll.Click
        If (chkDie1.Checked = True) Then
            lblDie1.Text = CStr(CInt(Int(Rnd() * 6) + 1))
        End If
        If (chkDie2.Checked = True) Then
            lblDie2.Text = CStr(CInt(Int(Rnd() * 6) + 1))
        End If
        If (chkDie3.Checked = True) Then
            lblDie3.Text = CStr(CInt(Int(Rnd() * 6) + 1))
        End If
        If (chkDie4.Checked = True) Then
            lblDie4.Text = CStr(CInt(Int(Rnd() * 6) + 1))
        End If
        If (chkDie5.Checked = True) Then
            lblDie5.Text = CStr(CInt(Int(Rnd() * 6) + 1))
        End If
    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        lblDie1.Text = ""
        lblDie2.Text = ""
        lblDie3.Text = ""
        lblDie4.Text = ""
        lblDie5.Text = ""
    End Sub

    Private Sub chkAll_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkAll.CheckedChanged
        If (chkAll.Checked) Then
            chkDie1.Checked = True
            chkDie2.Checked = True
            chkDie3.Checked = True
            chkDie4.Checked = True
            chkDie5.Checked = True
        Else
            chkDie1.Checked = False
            chkDie2.Checked = False
            chkDie3.Checked = False
            chkDie4.Checked = False
            chkDie5.Checked = False
        End If
    End Sub
End Class