Public Sub TooltipWrap(N As JavaObject,Width As Double)
Try
Dim Tooltip As JavaObject = N.RunMethod("getTooltip",Null)
Tooltip.RunMethod("setPrefWidth",Array(Width))
Tooltip.RunMethod("setWrapText",Array(True))
Catch
Log(LastException)
End Try
End Sub