VB Code:
Option Explicit
Private mstrUsername As String
Private mstrPassword As String
Public Property Let Username(ByVal Value As String)
mstrUsername = Value
End property
Public Property Get Username() As String
Username = mstrUsername
End Property
Public Property Let Password(ByVal Value As String)
mstrPassword = Value
End property
Public Property Get Password() As String
Password = mstrPassword
End Property
Then in your form you would do:
VB Code:
Option Explicit
Private mcolItems As Collection
Private Sub Form_Load()
Set mcolItems = New Collection
AddUsers
End Sub
Private Sub AddUsers()
Dim objUser As clsUser
Set objUser = New clsUser
objUser.Username = "Woof"
objUser.Password = "Badger"
mcolItems.Add objUser
Set objUser = Nothing
Set objUser = New clsUser
objUser.Username = "SmallFish"
objUser.Password = "Sausage"
mcolItems.Add objUser
Set objUser = Nothing
End Sub
Private Sub Command1_Click()
Dim objUser As clsUser
Set objUser = mcolItems.Item(1)
MsgBox objUser.Username
Set objUser = Nothing
End Sub
Hope that helps.