Shoutbox

Parsecommand doesnt return true.
Use this code

code:

---

Public Function ParseCommand(ByVal sCommand As String, ByVal sCommandArg As String, ByVal oConversationWnd As Object, ByRef sResult As String) As Boolean
If (StrComp(LCase(sCommand), "/xsetaway", vbTextCompare) = 0) Then
sResult = "#/all" + " I'm going but ill be back in " + sCommandArg + " minutes" + vbLf + "#/away"
ParseCommand = True
Exit Function

End If
ParseCommand = False
End Function

---