[VB6]Maschere Continue in VB6

[Rickycast]

[VB6/Access] In un vecchio lavoro fatto con ACCESS 2000 ho una Maschera impostata a "Maschere Continue" che in Visualizzazione Struttura contiene una sola Casella di Controllo con a fianco una sola Casella di Testo
L'origine Dati della Maschera è una Tabella e l'origine Dati della Casella di Testo è un Campo della Tabella.
Quando si apre la Maschera in Visualizzazione si vede l'elenco completo dei Record della Tabella con a fianco altrettante Caselle di Controllo.
Posso ovviamente selezionare o deselezionare le Caselle di Controllo sia singolarmente che tutte insieme e quindi gestire gli eventi che mi occorrono.
Volendo ottenere lo stesso risultato in VB6, cosa mi suggerite di fare?
Grazie per l'aiuto.

[gibra]

Vedi se il controllo Microsoft DataRepeater Control 6.0 (SP6) fa al caso tuo

[Rickycast]

Grazie, adesso provo.

[Rickycast]

[VB6] Ho risolto il mio problema utilizzando una "ListBox" che, fra l'altro, ha anche la possibilità di visualizzare le "CheckBox" impostando la proprietà "Style".
Per popolarla e per interagire con la Tabella del DB ho operato come segue:

Option Explicit
Dim InibisciClick As Integer

Private Sub Form_Load()

    Dim rcrdst As ADODB.Recordset, sSQL As String, Connessione As String
    Dim i As Integer, Entry
    
    Set rcrdst = New ADODB.Recordset
    
    Connessione = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=C:\DB\Archivio.mdb"
    
    sSQL = "SELECT DISTINCTROW Agente, Selezionato FROM Agenti"
    rcrdst.Open sSQL, Connessione, adOpenStatic, adLockOptimistic
    
    InibisciClick = -1                      ' Serve ad evitare che durante il caricamento venga richiamato l'Evento List1.Click che può contenere istruzioni da non eseguire in questa fase
    
    rcrdst.MoveLast
    rcrdst.MoveFirst
    For i = 0 To rcrdst.RecordCount - 1

        rcrdst("Selezionato") = True
        rcrdst.Update
        DoEvents
        rcrdst.MoveNext

    Next i

    Set rcrdst = Nothing
    Set rcrdst = New ADODB.Recordset

    sSQL = "SELECT Agente FROM Agenti"
    rcrdst.Open sSQL, Connessione, adOpenStatic, adLockOptimistic

    rcrdst.MoveLast
    rcrdst.MoveFirst
    For i = 0 To rcrdst.RecordCount - 1

      Entry = rcrdst("Agente")   ' Crea un elemento.
      List1.AddItem Entry   ' Aggiunge l'elemento.
      List1.Selected(i) = True
      rcrdst.MoveNext

    Next i
    
    InibisciClick = 0                       ' Riabilita l'Evento Click

End Sub

Ogni commento o suggerimento è benvenuto.