مشکل با ارسال دیتاmscomm

[abbasalifix]

سلام
من با تابع mscomm تونستم اطلاعات رو دریافت کنم
اما برای ارسال اون به مشکل برخوردم که ارسال نمیشه
چه باید انجام بدم؟

Private Sub Form_Load()

 MSComm1.CommPort = 6

    MSComm1.Settings = "9600, n , 8, 1"

    MSComm1.PortOpen = True

End Sub



Private Sub Command1_Click()

'MSComm1.Output = text2.Text

MSComm1.Output = Chr(10)

End Sub



Private Sub Timer1_Timer()

Text1.Text = Text1.Text + vbNewLine + MSComm1.Input

End Sub