Private Sub m_Controls_AfterCommand(ByVal Control As IControl, ByVal Command As ControlCommandEnum, ByVal Params As LDE.IProperties)
    On Error GoTo ErrorHandler
    If Command = lkControlCommandDropDown Then
        Dim iBookingLength As Integer
        Select Case Control.field.Name
            Case "eventstart"
            'Default booking lenght in minutes
            iBookingLength = 60
            If Control.Modified = True Then
                If Control.Value > m_Controls.GetValue("eventend") Then
                    'Finns det en befintlig bokningslängd att använda?
                    If VBA.IsNull(m_Controls.GetOriginalValue("eventend")) = False And VBA.IsNull(m_Controls.GetOriginalValue("Control.Value")) = False Then
                        iBookingLength = VBA.DateDiff("n", m_Controls.GetOriginalValue("eventstart"), m_Controls.GetOriginalValue("eventend"))
                    End If
                    Call m_Controls.SetValue("eventend", VBA.DateAdd("n", iBookingLength, m_Controls.GetValue("eventstart")))
                    Call m_Controls.SetFocus("eventend")
                End If
            End If
        End Select
        End If
Exit Sub
ErrorHandler:
    Call LC_UI.ShowError("ControlsHandlerWorkorder.m_controls_AfterCommand")
End Sub
Private Sub m_Controls_BeforeSave(Cancel As Boolean)
    If Not m_Controls.Record Is Nothing Then
        If VBA.IsNull(m_Controls.GetValue("eventstart")) <> VBA.IsNull(m_Controls.GetValue("eventend")) Then
            Call Lime.MessageBox("Det är inte tillåtet att endast ha 'Bokning börjar' eller 'Bokning slutar' ifyllt. Vänligen ändra detta.")
            m_Controls.SetFocus ("eventend")
            Cancel = True
        ElseIf m_Controls.GetValue("eventstart") > m_Controls.GetValue("eventend") Then
            Call Lime.MessageBox("'Bokning börjar' måste vara före 'Bokning slutar'. Vänligen ändra detta.")
            m_Controls.SetFocus ("eventend")
            Cancel = True
        End If
    End If
        Exit Sub
ErrorHandler:
    Call LC_UI.ShowError("ControlsHandlerWorkorder.m_controls_BeforeSave")
End Sub