Private Sub Form_Current()

    Me.Ozetler.Requery

    If Me.Ozetler.ListCount = 0 Then

    Me.Ozetler.Visible = False

    Else

    Me.Ozetler.Visible = True

    End If

End Sub

Bu kod ile Ozetler isimli liste kutunuza görünme ve gizlenme özelliği atayabilirsiniz, diğer liste kutuları içinde bu doğrultuda siz uygulayınız. Kolay gelsin.