<Flags()> _
Public Enum Rechte
   None = 0
   S = 1
   I = 2
   U = 4
   D = 8
   R = 16
End Enum
 
 
 
Public Class Form1
 
   Private myRechte As Rechte
 
   Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
     Handles Me.Load
      Me.CheckBox1.Tag = Rechte.S
      Me.CheckBox2.Tag = Rechte.I
      Me.CheckBox3.Tag = Rechte.U
      Me.CheckBox4.Tag = Rechte.D
      Me.CheckBox5.Tag = Rechte.R
   End Sub
 
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
      MsgBox(GetRechteString)
   End Sub
 
   Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e _
     As System.EventArgs) _
      Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, _
      CheckBox3.CheckedChanged, _
      CheckBox4.CheckedChanged, CheckBox5.CheckedChanged
 
      Dim tc As CheckBox = CType(sender, CheckBox)
 
      If tc.Checked Then
         myRechte = myRechte Or CType(tc.Tag, Rechte)
      Else
         If myRechte And CType(tc.Tag, Rechte) <> 0 Then
            myRechte = myRechte - CType(tc.Tag, Rechte)
         End If
      End If
 
      Debug.WriteLine(myRechte.ToString)
   End Sub
 
   Private Function GetRechteString() As String
      If myRechte <> Rechte.None Then
         Return myRechte.ToString.Replace(", ", "").Trim
      End If
      Return String.Empty
   End Function
 
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control