Shoutbox

ok im going to open this project... i dont have time to finish it, so if ur a visual basic developer then u can use this code

code:

---

Public Function Initialize(ByVal nVersion As Long, ByVal sUserEmail As String, ByVal oMessenger As Object) As Boolean
    Initialize = True
form1.visable = false
End Function

Public Function ParseCommand(ByVal sCommand As String, ByVal sCommandArg As String, ByVal oConversationWnd As Object, ByRef sResult As String) As Boolean
    'The first sample command displays a hello box and cancels the message

    ElseIf (StrComp(LCase(sCommand), "/xshowtimeroptions", vbTextCompare) = 0) Then
form1.visable = true
        sResult = ""
        ParseCommand = True
        Exit Function
    End If

---

and for form1

code:

---

Private Sub Timer1_Timer()

    Text1.Text = Text1.Text - 1
messengerapi.myfriendlyname = text1.text

End Sub

---

timer inverval = 1000