Hola a todos:
El Codigo qeu he hecho es el siguiente:
Tramite As String
Agregado as Boolean
GridTab2=DBGrid
LstTramites=ListBox
Tramite = GridTab2.Columns(0).Text
For i = -1 To LstTramites.ListCount
If Tramite = LstTramites.Text Then
Agregado = False
Else
Agregado = True
End If
Next i
If Agregado = True Then
LstTramites.AddItem TramiteElse
MsgBox "El Trámite ya fué agregado", vbInformation
End If
Espero su Colaboración
