Normal
Party
Shout
Knights
Merchant
Alliance

Public Function Chat(Message As String, cType As String)
On Error Resume Next
Dim MessageHEX As String
MessageHEX = StrToHex(Message)
Select Case cType
    Case "Normal":
        SendPacket "10" & "01" & "FF00" & MessageHEX ' GENERAL_CHAT
    Case "Whisper":
        SendPacket "10" & "02" & "FF00" & MessageHEX ' PRIVATE_CHAT
    Case "Party":
        SendPacket "10" & "03" & "FF00" & MessageHEX ' PARTY_CHAT
    Case "Force":
        SendPacket "10" & "04" & "FF00" & MessageHEX ' FORCE_CHAT
    Case "Shout":
        SendPacket "10" & "05" & "FF00" & MessageHEX ' SHOUT_CHAT
    Case "Knights":
        SendPacket "10" & "06" & "FF00" & MessageHEX ' KNIGHTS_CHAT
    Case "Public":
        SendPacket "10" & "07" & "FF00" & MessageHEX ' PUBLIC_CHAT
    Case "War":
        SendPacket "10" & "08" & "FF00" & MessageHEX ' WAR_SYSTEM_CHAT
        Case "Commander":
        SendPacket "10" & "0D" & "FF00" & MessageHEX ' COMMAND_CHAT
    Case "Merchant":
        SendPacket "10" & "0E" & "FF00" & MessageHEX ' MERCHANT_CHAT
    Case "Alliance":
        SendPacket "10" & "0F" & "FF00" & MessageHEX ' ALLIANCE_CHAT
'    Case Else
'        frmMain.StatusBar1.Panels(1).Text = "Chat error!"
End Select
End Function
 
Public Function StrToHex(Data As Variant) As Variant
On Error Resume Next
Dim Temp As String
If VarType(Data) <> 8 Then
    StrToHex = Data
Else
    buffer = ""
    For I = 1 To Len(Data)
    buffer = buffer & Format(Hex(Asc(Mid(Data, I, 1))), "00")
    Next I
    StrToHex = buffer
End If
End Function