Private Sub ToolTipOnNode(Nd As Node, msg As String, fnt As Font, iv As ImageView, add As Boolean)
Dim joToolTip As JavaObject
Dim joToolTip2 As JavaObject = joToolTip.InitializeNewInstance("javafx.scene.control.Tooltip", Array(msg))
If add = True Then
joToolTip.RunMethod("install", Array(Nd, joToolTip2))
If fnt.IsInitialized Then
joToolTip2.RunMethod("setFont", Array(fnt))
End If
If iv.IsInitialized Then
joToolTip2.RunMethod("setGraphic", Array(iv))
iv.Visible = True
End If
Else
joToolTip.RunMethod("uninstall", Array(Nd, joToolTip2))
End If
End Sub