Sub Initialize
Dim dp As JavaObject = DatePicker1
Dim e As Object = dp.CreateEvent("javafx.event.EventHandler", "dp_OnAction", False)
dp.RunMethod("setOnAction", Array(e))
End Sub
Private Sub dp_OnAction_Event(MethodName As String, Args() As Object)
'your action
End Sub