'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