All pastes #477469 Raw Edit

Unnamed

public text v1 · immutable
·published 2007-05-08 17:40 UTC
rendered paste body
Public Class Form1

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.CheckState = CheckState.Checked Then
            Message = Message & CheckBox1.Text & vbNewLine
        ElseIf CheckBox1.CheckState = CheckState.Unchecked Then

        End If
        MsgBox("You have chosen" & vbNewLine & Message)
    End Sub