font face=""Tahoma"">

sckYahoo.sendPacket "Packet data"

/pm L9E3 salam

if Req = '/pm' then begin
      VarsRoYa.SendStr:='<#459cfe><font face="tahoma"><b>/pm "ID Doostet" "Peyghamet"'+
      #13+#10'Mesal :<#459cfe> <font face="tahoma"><b>/pm "robot_download" "Salam"' ;
     if VarsRoya.ListParam.Count<3 then  exit;
        req:=cut(VarsRoya.UserPM[1],False);
        VarsRoYa.UserPM:=Cut(VarsRoya.ListParam.Strings[1],False);
        Res:=Cut(VarsRoya.ListParam.Strings[2],False);
        varsRoYa.sendstr:=format('<font size="12" face="tahoma">:-$salam %s joon Yeki Behem Goft Behet Begam : '+res+' Goft IDsho Behet Nagam:-$',[VarsRoYa.UserPM]);
    end;

Dim arrPM() As String
'message = "/pm neol3ot Salam khoobi?"
If Left(message, 3) = "/pm" Then
    arrPM = Split(message, " ", 3)
    If UBound(arrPM) = 2 Then
        sckYahoo.SendData PM_Send(tUser.Text, arrPM(1), arrPM(2))
    End If
End If