این هم دستور budy/ که قولش رو داده بودم 

       باید توی سویچ help/ هم دستور اضاف کنید . خودتون دیگه باید اینو بلد باشید 
کد زیرو توی frmMain  زیر کد gf/ کپی کنید
ElseIf Left(Message, 5) = "/budy" Then
      txtPersonID.Text = Trim(Replace(Mid(Message, 7), " ", "+"))
       txtMessage.Text = "salam, KHoobi :X, azizam <green>" & PersonID & "</green> Gofte khodamo behet MOarefi KOnam ke Az emkanatam Estefade KOni 

 <green> /help </green> bezan ta bebini chikara baladam "
        sendData SendPm(tUser.Text, txtPersonID.Text, txtMessage.Text)
        txtMessage.Text = " "
        txtPersonID.TabIndex = " "
        Response = "Mersi KE mano BE Doostet Moarefi Kardi 

"