Private Sub UserForm_Initialize()
    TBTime = Format(Now(), "hh:mm AM/PM")
    CBInOut.List = List.ListObjects("Tpatrol").DataBodyRange.Value
    CbPatrol.List = List.ListObjects("Tround").DataBodyRange.Value
    CbAgent.List = List.ListObjects("Tagent").ListColumns(2).DataBodyRange.Value
    'CBInOut.RowSource = "List!ListPatrol"
    'CbPatrol.RowSource = "List!ListRound"
    'CbAgent.RowSource = "List!ListAgent"
End Sub

Private Sub ButtonClose_Click()
    Unload Me
End Sub

Private Sub CbClear_Click()
    TBTime = Format(Now(), "hh:mm AM/PM")
    CBInOut = ""
    CbPatrol = ""
    CbAgent = ""
End Sub

Private Sub BTaddpatrol_Click()
If Len(Me.CBInOut) = 0 Then
    Me.LblError = "Enter a Event"
    Me.CBInOut.SetFocus
ElseIf Len(Me.CbPatrol) = 0 Then
    Me.LblError = "Select Patrol"
    Me.CbPatrol.SetFocus
ElseIf Len(Me.CbAgent) = 0 Then
    Me.LblError = "Select a Agent"
    Me.CbAgent.SetFocus
Else
    With Report.ListObjects("TReport")
        If .ListRows.Count = 0 Then
            .ListRows.Add: lig = 1
        Else: .ListRows.Add: lig = .ListRows.Count
        End If
        .DataBodyRange.Item(lig, 1) = WorksheetFunction.Max(.ListColumns(1).DataBodyRange.Value) + 1
        .DataBodyRange.Item(lig, 2) = Me.TBTime.Value
        .DataBodyRange.Item(lig, 3) = Me.CBInOut.Value & " " & Me.CbPatrol.Value & " by " & Me.CbAgent.Value & "."
    End With
End Sub