Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Select Case ListBox1.SelectedItem.ToString
Case ”Long”
DateTimePicker1.Format = DateTimePickerFormat.Long
Case ”Short”
DateTimePicker1.Format = DateTimePickerFormat.Short
Case ”Time”
DateTimePicker1.Format = DateTimePickerFormat.Time
Case ”Custom”
DateTimePicker1.Format = DateTimePickerFormat.Custom
End Select

End Sub

Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
Label2.Text = DateTimePicker1.Value.ToString
End Sub