VERSION 5.00
Begin VB.Form frmAdd2Grp 
   Caption         =   "Add Guest to Distribution Lists"
   ClientHeight    =   3435
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5040
   LinkTopic       =   "Form2"
   ScaleHeight     =   3435
   ScaleWidth      =   5040
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton ExitBttn 
      Caption         =   "Exit"
      Height          =   375
      Left            =   3840
      TabIndex        =   2
      Top             =   960
      Width           =   1095
   End
   Begin VB.CommandButton AddBttn 
      Caption         =   "Add"
      Default         =   -1  'True
      Enabled         =   0   'False
      Height          =   375
      Left            =   3840
      TabIndex        =   1
      Top             =   360
      Width           =   1095
   End
   Begin VB.ListBox DListList 
      Height          =   2205
      Left            =   240
      MultiSelect     =   1  'Simple
      TabIndex        =   0
      Top             =   360
      Width           =   3015
   End
End
Attribute VB_Name = "frmAdd2Grp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'/***************************************************************************
'$name: Add2Grp.FRM
'$version: 1.0 
'$date_modified: 121198 
'$description: Visual Basic form file
'$owner: GroupWise SDK Team Lead
'Copyright (c) 1998 Novell, Inc. All Rights Reserved.
'
'THIS WORK IS SUBJECT TO U.S. AND INTERNATIONAL COPYRIGHT LAWS AND TREATIES.
'USE AND REDISTRIBUTION OF THIS WORK IS SUBJECT TO THE LICENSE AGREEMENT
'ACCOMPANYING THE SOFTWARE DEVELOPMENT KIT (SDK) THAT CONTAINS THIS WORK.
'PURSUANT TO THE SDK LICENSE AGREEMENT, NOVELL HEREBY GRANTS TO DEVELOPER A
'ROYALTY-FREE, NON-EXCLUSIVE LICENSE TO INCLUDE NOVELL'S SAMPLE CODE IN ITS
'PRODUCT. NOVELL GRANTS DEVELOPER WORLDWIDE DISTRIBUTION RIGHTS TO MARKET,
'DISTRIBUTE, OR SELL NOVELL'S SAMPLE CODE AS A COMPONENT OF DEVELOPER'S
'PRODUCTS. NOVELL SHALL HAVE NO OBLIGATIONS TO DEVELOPER OR DEVELOPER'S
'CUSTOMERS WITH RESPECT TO THIS CODE.
'****************************************************************************/

Public Dlists As Object
Public User As Object

Private Sub AddBttn_Click()
Dim lIndex As Integer
Dim dlist As Object
Dim Members As Object
Dim member As Object

    lIndex = 0
    While lIndex < DListList.ListCount
        If DListList.Selected(lIndex) Then
            Set dlist = Dlists.Item(DListList.List(lIndex))
            Set Members = dlist.Membership
            Set member = Members.Add(User)
            
            Set member = Nothing
            Set Members = Nothing
            Set dlist = Nothing
        End If
        lIndex = lIndex + 1
    Wend
    
End Sub

Private Sub DListList_Click()
If (DListList.SelCount > 0) Then
    AddBttn.Enabled = True
Else
    AddBttn.Enabled = False
End If
End Sub

Private Sub ExitBttn_Click()
    Set Dlists = Nothing
    Unload Form2
End Sub

Private Sub Form_Load()
Dim dlist As Object
    
    DListList.Clear
    For Each dlist In Dlists
        DListList.AddItem dlist.Name
        Set dlist = Nothing
    Next
End Sub