Try
If App.OSVersion >= 13.4 Then
Dim no As NativeObject = DatePicker1
no.SetField ("preferredDatePickerStyle", 1)
End If
Possible values
UIDatePickerStyleAutomatic = 0
A style indicating that the system picks the concrete style based on the current platform and date picker mode.
UIDatePickerStyleCompact = 2
A style indicating that the date picker displays as a label that when tapped displays a calendar-style editor.
UIDatePickerStyleInline = 3
A style indicating that the date pickers displays as an inline, editable field.
UIDatePickerStyleWheels = 1
A style indicating that the date picker displays as a wheel picker.