functions like Getdefinition, GetMeronyms, GetHolonyms, GetHypernyms
all from the brainedit.zip help file.
here some of the code
Function GetDefinition(PartOfSpeech As Variant, Sense As Variant, DefType As String) As Variant
List_Of_Definition = ""
WN.LookUpWord("") 'this points WN to your word "".
List_Of_Definition = WN.GetDefinition("NOUN", 1,"D")
End Function
Function GetHolonyms(Sense As Variant, SubSet As Variant) As Variant
WN.LookUpWord("")
List_Of_GetSynonyms = WN.GetHolonyms(1,"Member")
End Function
Function GetHypernyms(PartOfSpeech As Variant, Sense As Variant, Level As Variant) As Variant
Hypernym = WN.ChooseRandomWord(WN.GetHypernyms("NOUN", 1, 1))
End Function
Function GetMeronyms(Sense As Variant) As Variant
List_Of_Meronyms = " "
WN.LookUpWord("") 'This points WN to your word "".
List_Of_Meronyms = WN.GetMeronyms(1)
End Function