'This is VB6 ActiveX Control
'Enjoy the use of it
'Example for Loc-Sven by Doc
'---------------------------------------------------------------------------------------
'EXAMPLE HTML

'<CENTER>
'<OBJECT ID="ChatFrame" CLASSID="CLSID:69A281E4-FE5B-448A-9580-C49F0A48E2DE" height="100%" Width="99%" border="0" CODEBASE="MyOCX.OCX#version=1,0,0,0">
    '<PARAM NAME="NAME" VALUE="Loc-Sven">
'</OBJECT>
'</CENTER>

option explicit
dim sName as string

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    sName = PropBag.ReadProperty("NAME", "Default")

End Sub


Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    
    Call PropBag.WriteProperty("NAME", sName , "Tech-Arena "Default")

    txtName.Text = sName
End Sub

Private Sub UserControl_InitProperties()
    'This is like Form_Load()
End Sub


'Public Property Get RoomName() As String
'    sName= txtName.Text 
'End Property