Shoutbox

code:

---

'This is just an example of using the Visual Basic Input Box on the Initialize Function to set the new name.

Public strNewUserName As String
Public blnNameChange As Boolean

Public Function Initialize(ByVal nVersion As Long, ByVal sUserEmail As String, ByVal oMessenger As Object) As Boolean
    Initialize = True
    strNewUserName = InputBox("Enter New Name","Enter New Name", "Enter New Name")

    If strNewUserName = "" Or strNewUserName = "Enter New Name" Then
        MsgBox "Please Select A Different Name"
    Else
        blnNameChange = SetNewName(strNewUserName)
    End If
End Function

---