افزودن Status به پروژه

[zidanerfan]

سلام دوستان میخوام به این پروژه Status اضافه کنم یکی از دوستانم گفتش که از این کد استفاده کنم من هر باز انجامش می دم Error میده

Public Function changeStatus(Message As String, busy As Boolean) As String
Dim Packet As String
If busy = True Then
Packet = "10À€99À€19À€" & Message & "À€47À€1À€187À€0À€"
Else
Packet = "10À€99À€19À€" & Message & "À€47À€0À€187À€0À€"
End If
changeStatus = Header("C6", Packet)
End Function

اگه میشه رو این پروژه ای که میزارم Status اضافه کنید ممنون میشم

Proje:http://www.uploadtak.com/images/gbc3oo8cr70e5ri2at50.zip

[Veteran]

منکه سوالتون رو متوجه نشدم !!!
میشه بهتر بگین ؟ میخواین چیکار کنین ؟
لینک هم خرابه !!
واسه منکه باز نمیشه

[hossein033]

با سلام خدمت دوستان

نکته اول اینکه لینک فایلی که ضمیمه شده سالمه !
نکته دوم هم اینکه که شما خودتون Status رو به برنامه اضافه کردید ، پس مشکل شما چیه دوست عزیز؟

[zidanerfan]

سلام آقا یه پروژه ی لاگ این ای دی یاهو آپلود کردم میخوام براش یه textbax بسازی + 1 Commnad که وقتی تو کارد متن مینویسم VB بعد رو دکمه کلیک کردم جملهی مورد نظرم بره تو Status ای دی عکسو بیبینی خوب متوجه میشی لینک عکس :http://up2.iranblog.com/images/5efl0s1dsg2tg0dh7124.jpg

76634

[zidanerfan]

داداش status رو اضافه کردم ولی Error میده میشه اگه میشه 1 بار test کنید ؟:متفکر: