خواندن مقدار یک TextBox از یک برنامه

[MAiLDEREMi]

راستش هر کاری کردم نتونستم یه کدی درست حسابی بنویسم (هم تو VB6 و هم VB.Net) که بیاد مقدار هر نوع Textbox رو بخونه نشد. البته Run یه Combo box داره ولی اون هم یه مقدار Text داره... اگه تونستید لطف کنید یه کدی براش تو VB6 و .Net بنویسید.

متشکرم

[__siavash__]

راستش هر کاری کردم نتونستم یه کدی درست حسابی بنویسم (هم تو VB6 و هم VB.Net) که بیاد مقدار هر نوع Textbox رو بخونه نشد. البته Run یه Combo box داره ولی اون هم یه مقدار Text داره... اگه تونستید لطف کنید یه کدی براش تو VB6 و .Net بنویسید.

متشکرم
یعنی میخوای مقداره تکست یه تکست باکس که مال یه برنامه دیگه هست رو بخونی ؟

[shamsoft]

Private Declare Function Sendmessagebynum& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
Private Declare Function SendMessageByString& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String)


Private Function GetText(hwnd) As String
On Error Resume Next
GetTrim = Sendmessagebynum(hwnd, 14, 0&, 0&)
TrimSpace$ = Space$(GetTrim)
GetString = SendMessageByString(hwnd, 13, GetTrim + 1, TrimSpace$)
GetText = TrimSpace$
End Function