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