B4J Question How to parse Belgian (Dutch) DateTimes?

Sub AppStart (Args() As String)
    For Each locale As JavaObject In FindAllLocales
        Dim s As String = locale 'ignore
        If s.ToLowerCase.Contains("nl") Then
            Log(s)
        End If
    Next
    SetDefaultLocale("nl", "NL")
    DateTime.DateFormat = "dd-MMM-YYYY HH:mm:ss"
    Log(DateTime.Date(DateTime.Now))
End Sub

Private Sub SetDefaultLocale(Language As String, Country As String)
    Dim loc As JavaObject
    loc.InitializeNewInstance("java.util.Locale", Array(Language, Country))
    Dim jo As JavaObject
    jo.InitializeStatic("java.util.Locale").RunMethod("setDefault", Array(loc))
End Sub

Sub FindAllLocales As List
    Dim jo As JavaObject
    Dim res() As Object = jo.InitializeStatic("java.util.Locale").RunMethod("getAvailableLocales", Null)
    Return res
End Sub