[vb] meerdere forms open van de zelfde soort

[mrfatmen]

ik heb een progie wat voor ieder contact zijn eigen form opend uit een huidige.

zal een voorbeeld geven ter verduidelijking.
ik heb 1 form agpr en ik heb 2 users
als nu user1 bericht krijg op hij agpr
en als nu user2 ook bericht krijgt op hij ook agpr.

nu werk ik met deze code op de agpr forms afhankelijk van elkaar kan bedienen.

code:

Option Explicit
Public frmMessage(255) As agpr

Public Enum TypFrmType
  enumFrmNull = 0
  enumfrmUserDetail = 1
  enumFrmSndMessage = 2
  enumFrmSndUrl = 3
  enumFrmSndContact = 4
End Enum

Public SlotfrmMessage As String * 255

Public Function frmLoaded(FrmType As TypFrmType) As Byte
  Select Case FrmType
    Case enumFrmSndMessage
    frmLoaded = InStr(1, SlotfrmMessage, Chr$(0))
    If frmLoaded > 0 Then Mid$(SlotfrmMessage, frmLoaded) = Chr$(1)
  End Select
End Function

Public Sub frmUnloaded(FrmType As TypFrmType, FrmIndex As Byte)
  Select Case FrmType
   Case enumFrmSndMessage:  Mid$(SlotfrmMessage, FrmIndex) = Chr$(0)
  End Select
End Sub

Public Function frmGetIndex(FrmType As TypFrmType, lngUIN As Long) As Byte
  Dim i As Byte
  i = 0
  
  Select Case FrmType
    Case enumFrmSndMessage
    Do
      i = i + 1
      i = InStr(i, SlotfrmMessage, Chr$(1))
      If i = 0 Then Exit Do
      If frmMessage(i).UserUIN = lngUIN Then
        frmGetIndex = i
        Exit Function
      End If
    Loop Until i = 255 Or i = 0
  End Select
End Function

maar deze werkt niet helemaal.
en omdat ik niet prcies snap wat we gebeurd kan ik het niet fixen.

dus nu is mijn vraag kan iemand mij uitleggen hoe hij werkt.
of weet iemand een bettere manier?

[mrfatmen]

laat maar hebben het probleem al opgelost

edit:
dit dacht ik dus alleen maar

[.oisyn]

Als je de oplossing nou ook even post, dan hebben de andere mensen er ook nog wat aan