'Das hier musst du in die Form einfügen, welches als chatfenster dient und als 
' Array erstellt wird
'########################################################
Private mvarFormName as string
 
public property let WindowName(sName as string)
    mvarformname=sname
end property
 
public property get WindowName() as string
    windowname=mvarformname
end property
 
'########################################################
'########################################################
 
Private Function ShowTextInChatWindowFrom(sUsername as String,stext as _
  string)as integer
dim i as integer
for i=0 to MaxAnzahlForms -1
    if Form(i).WindowName=sUsername then
        Form(i).show
        Form(i).addTextInChatBox sText
        ShowChatWindowFrom=i
        exit function
    end if
next
'wenn er hier angelangt ist, hat er wohl kein passendes window gefunden...
'also erzeugen wir eins.Wir nehmen eins mit leeren windowname 
for i=0 to MaxAnzahlForms -1
    if Form(i).windowName="" then
        Form(i).windowName=sUsername
        Form(i).show
        Form(i).addTextInChatBox sText
        ShowChatWindowFrom=i
        exit function
    end if
next
 
end function