Matty/
My countdown code is already done. thank you
my code is now looking like this:
code:
Dim retval
Public Function Initialize(ByVal nVersion As Long, ByVal sUserEmail As String, ByVal oMessenger As Object) As Boolean
Set objMessenger = oMessenger
Initialize = True
If objMessenger.MyStatus <> MISTATUS_OFFLINE Then
retval = SetNewName("New Name")
End If
End Function
i opened the msn to try it but nothing happened !!
ps.in previous entry,accidentally i pressed quote instead of edit..sorry.