gibi gözükecek
Private Function GetText(pHandle As Long) As String
Dim Buffer As String
Dim TextLength As Long
TextLength = SendMessageAny(pHandle, WM_GETTEXTLENGTH, 0&, 0&)
Buffer = String$(TextLength, 0&)
SendMessageAny pHandle, WM_GETTEXT, TextLength + 1, Buffer
GetText = Buffer
End Function
gibi fonksiyonlarla da içeriği gözükmemesi lazım