Visual Basic

objUser.strUsername = System.Convert.ToString(Me.txtUsername.Text)<br />
.<br />
.<br />
.<br />
.<br />
etc..

Private startPoint As System.Drawing.Point
   Private endPoint As System.Drawing.Point
   Private Sub Panel1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
       startPoint.X = e.X
       startPoint.Y = e.Y
   End Sub
   Private Sub Panel1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseUp
       endPoint.X = e.X
       endPoint.Y = e.Y
       Panel1.Invalidate()
   End Sub
   Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
       Dim hPath As New System.Drawing.Drawing2D.GraphicsPath

       Dim width As Integer = Math.Max(endPoint.X, startPoint.X) - Math.Min(endPoint.X, startPoint.X)
       Dim height As Integer = Math.Max(endPoint.Y, startPoint.Y) - Math.Min(endPoint.Y, startPoint.Y)
       Dim avg As Integer = CInt((width + height) / 2)
       If avg > 0 Then
           Dim topLeftCorner As Point = startPoint
           If endPoint.X < startPoint.X Then
               topLeftCorner.X = endPoint.X
           End If
           If endPoint.Y < startPoint.Y Then
               topLeftCorner.Y = endPoint.Y
           End If

           Dim radius As Integer = CInt(avg / 2)
           Dim topLeftSquare As New Rectangle(topLeftCorner.X, topLeftCorner.Y, radius, radius)
           Dim topRightSquare As New Rectangle(topLeftCorner.X + radius, topLeftCorner.Y, radius, radius)
           e.Graphics.DrawArc(Pens.Black, topLeftSquare, 180.0F, 180.0F)
           hPath.AddArc(topLeftSquare, 180.0F, 180.0F)
           e.Graphics.DrawArc(Pens.Black, topRightSquare, 180.0F, 180.0F)
           hPath.AddArc(topRightSquare, 180.0F, 180.0F)
           e.Graphics.DrawLine(Pens.Black, topLeftCorner.X, (topLeftCorner.Y + radius) - CInt((radius / 2)), topLeftCorner.X + radius, topLeftCorner.Y + avg)
           hPath.AddLine(topLeftCorner.X, (topLeftCorner.Y + radius) - CInt((radius / 2)), topLeftCorner.X + radius, topLeftCorner.Y + avg)
          e.Graphics.DrawLine(Pens.Black, topLeftCorner.X + avg, (topLeftCorner.Y + radius) - CInt((radius / 2)), topLeftCorner.X + radius, topLeftCorner.Y + avg)

           hPath.AddLine(topLeftCorner.X + avg, (topLeftCorner.Y + radius) - CInt((radius / 2)), topLeftCorner.X + radius, topLeftCorner.Y + avg)
           e.Graphics.FillPath(Brushes.Black, hPath)
       End If
   End Sub

<br />
Dim i As Integer <br />
Dim dt As New DataTable() <br />
Dim dr As DataRow <br />
Dim userID As Integer <br />
<br />
dt.Columns.Add("UserID") <br />
dt.Columns.Add("GroupID") <br />
For i = 0 To Me.chkLstSecurityRoles.CheckedItems.Count - 1 <br />
dr = dt.NewRow() <br />
dr("UserID") = userID <br />
dr("GroupID") = 'The index number of the checked item that have been clicked<br />
Next<br />

Private Sub loadGroups()<br />
        Dim objGetGroups As New BL_Groups()<br />
        Dim ds As New DataSet()<br />
        ds = objGetGroups.getAllGroups()<br />
        Dim dt As New DataTable()<br />
        Dim i As Integer<br />
        dt = ds.Tables(0)<br />
<br />
        Try<br />
            For i = 0 To ds.Tables(0).Rows.Count - 1<br />
                Me.chkLstSecurityRoles.Items.Add(dt.Rows(i).Item("Privilege")).ToString()<br />
            Next<br />
        Catch ex As Exception<br />
            MessageBox.Show(ex.Message)<br />
        End Try<br />
<br />
    End Sub<CODE><br />
Is it good to put them in to an array and them to a store procedure. <br />
<br />
If the user clicks 20 items, then I would have to do 20 inserts. That doesn't sound too efficient. <br />
<br />
The code I have for finding the checked items is below<br />
<CODE> Dim i As Integer<br />
        Dim strChecked As String<br />
<br />
        For i = 0 To Me.chkLstSecurityRoles.CheckedItems.Count - 1<br />
<br />
            strChecked = Me.chkLstSecurityRoles.CheckedItems(i).ToString()<br />
        Next