Leeres DatePicker Feld. VB=>PureBasic?

[Skywalker]

Schaut bitte mal folgenden VisualBasic Source an:

Code: Alles auswählen

Option Explicit

Private Sub cmdOK_Click()
    Dim sMyDate As String
    
    If Me.DTPicker1.Format = dtpShortDate Then
        sMyDate = Me.DTPicker1.Value
    Else
        sMyDate = "null"
        MsgBox "You have not selected a date..."
    End If
End Sub

Private Sub DTPicker1_CloseUp()
    Me.DTPicker1.Format = dtpShortDate
End Sub

Private Sub DTPicker1_KeyUp(KeyCode As Integer, Shift As Integer)
    If DTPicker1.Visible Then
        If KeyCode = vbKeyDelete Then
            DTPicker1.Format = dtpCustom
            DTPicker1.CustomFormat = " "
        Else
            DTPicker1.Format = dtpShortDate
        End If
    End If
End Sub

Private Sub Form_Load()
    Me.DTPicker1.Format = dtpCustom
    Me.DTPicker1.CustomFormat = " "
End Sub

In VB ist es möglich ein DatePicker leer darzustellen.
Kann das auch in PureBasic realisiert werden?

Will nicht nerven, aber habe da echt meine Probleme mit.

Danke und Gruß
Thomas