Visual Basic express edition vprašanje

private void checkedListBox1_ItemCheck(object sender, ItemCheckEventArgs e)
{
if (checkedListBox1.CheckedItems.Count >= 1 && e.CurrentValue != CheckState.Checked)
{
e.NewValue = e.CurrentValue;
MessageBox.Show("You can only check one item");
}
}

To je za C#.

Za VB:
Klikni na checkedListBox3 in potem v meniju pod Actions (ali nekaj takšnega) in dvakrat klikni kjer je ItemCheck ter potem ko se ti odpri za pisanje kode vpiši naslednje:

If checkedListBox3.CheckedItems.Count >= 1 Then
If e.CurrentValue != CheckState.Checked Then
e.NewValue = e.CurrentValue
End If
End If