[code]Declare Function documentView Lib “Cocoa” Selector “documentView” (NSScrollView As Ptr) As Ptr
Declare Function textStorage Lib “Cocoa” Selector “textStorage” (NSTextView As Ptr) As Ptr
Dim documentViewPtr As Ptr = documentView(Ptr(textArea.Handle))
Dim textStoragePtr As Ptr = textStorage(documentViewPtr)[/code]