Private Sub btb2_Format(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.ConvertEventArgs) Handles btb2.Format
        If e.Value Is DBNull.Value Then
            e.Value = DateTime.MinValue.ToString("dd.MM.yyyy hh:mm")
            Return
        End If
        e.Value = CDate(e.Value).ToString("dd.MM.yyyy hh:mm")
    End Sub

    Private Sub btb2_Format(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.ConvertEventArgs) Handles btb2.Format
        Try
            e.Value = CDate(e.Value).ToString("dd.MM.yyyy hh:mm")
        Catch ex As System.Exception
            e.Value = DateTime.MinValue.ToString("dd.MM.yyyy hh:mm")
        End Try
    End Sub