سلام
از گزینه ادد ریفرنس ، تب com این ریفرنس را به پروژه ات اضافه کن
Microsoft Fax Service Extended Com Type Library
سپس در دکمه ارسال به شرح ذیر کد نویسی کن
Dim _fs As FAXCOMEXLib.FaxServer = New FAXCOMEXLib.FaxServer()
Dim _fd As New FAXCOMEXLib.FaxDocument()
Dim _jobID As String()
_fs.Connect("server") ' نام کامپیوتر
_fd.Priority = FAXCOMEXLib.FAX_PRIORITY_TYPE_ENUM.fptLOW
_fd.Recipients.Add("123456789", "test")
_fd.CoverPageType = FAXCOMEXLib.FAX_COVERPAGE_TYPE_ENUM.fcptNONE
_fd.Body = "C:\test\test_1.txt"
_fd.DocumentName = "My First Fax"
_fd.AttachFaxToReceipt = False
_jobID = _fd.ConnectedSubmit(_fs)
_fs.Disconnect()