How can you assign permission programatically

Write a custom app which references the K2MNG object model. Please refer to the help file for more information. The below code sample came from the Help file...

Public oK2Manager As K2Mng.K2Manager
Public oProcSet As K2Mng.ProcessSet
Public strType As String

Private Sub Update_ProcSetPermissions()
    Dim oPermissions As New K2Mng.Permissions
    Try
        If strType = "Users" Then
            'Add new Permission to oProcSetPermissions collection
            For Each oListItem As ListViewItem In lstView.Items
                If oListItem.SubItems(1).Text = "*" Or oListItem.SubItems(2).Text = "*" Or oListItem.SubItems(3).Text = "*" Or oListItem.SubItems(4).Text = "*" Or oListItem.SubItems(5).Text = "*" Then
                    Dim oProcSetPermissions As New K2Mng.ProcSetPermissions
                    oProcSetPermissions.UserName = oListItem.Text
                    oProcSetPermissions.Admin = IIf(oListItem.SubItems(1).Text = "*", True, False)
                    oProcSetPermissions.Start = IIf(oListItem.SubItems(2).Text = "*", True, False)
                    oProcSetPermissions.View = IIf(oListItem.SubItems(3).Text = "*", True, False)
                    oProcSetPermissions.ViewPart = IIf(oListItem.SubItems(4).Text = "*", True, False)
                    oProcSetPermissions.ServerEvent = IIf(oListItem.SubItems(5).Text = "*", True, False)
                    oPermissions.Add(oProcSetPermissions)
                End If
            Next
            'Update AdminPermissions
            oK2Manager.UpdateProcUserPermissions(oProcSet.ProcSetID, oPermissions)
        Else
            'Add new Permission to oProcSetPermissions collection
            For Each oListItem As ListViewItem In lstView.Items
                If oListItem.SubItems(1).Text = "*" Or oListItem.SubItems(2).Text = "*" Or oListItem.SubItems(3).Text = "*" Or oListItem.SubItems(4).Text = "*" Or oListItem.SubItems(5).Text = "*" Then
                    Dim oProcSetPermissions As New K2Mng.ProcSetPermissions
                    oProcSetPermissions.GroupName = oListItem.Text
                    oProcSetPermissions.Admin = IIf(oListItem.SubItems(1).Text = "*", True, False)
                    oProcSetPermissions.Start = IIf(oListItem.SubItems(2).Text = "*", True, False)
                    oProcSetPermissions.View = IIf(oListItem.SubItems(3).Text = "*", True, False)
                    oProcSetPermissions.ViewPart = IIf(oListItem.SubItems(4).Text = "*", True, False)
                    oProcSetPermissions.ServerEvent = IIf(oListItem.SubItems(5).Text = "*", True, False)
                    oPermissions.Add(oProcSetPermissions)
                End If
            Next
            'Update AdminPermissions
            oK2Manager.UpdateProcGroupPermissions(oProcSet.ProcSetID, oPermissions)
        End If
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub 

Hope this helps,
Ockert