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

Public Function ShowTextInChatWindowFrom(sUsername as String,stext as string)as _
  integer
dim i as integer
 
'Hier wird dein FormsArray nach der richtigen Form durchsucht
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 ein neues.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