El sistema estaba en suspensión y se reanudó.

Hora de suspensión: ‎2020‎-‎02‎-‎19T11:12:55.650390600Z
Hora de reactivación: ‎2020‎-‎02‎-‎19T11:42:28.984375000Z

Origen de la reactivación: Desconocido

SleepTime = 2020-02-19T11:12:55.650390600Z
WakeTime = 2020-02-19T11:42:28.984375000Z
SleepDuration = 9395
WakeDuration = 1472
DriverInitDuration = 1219
BiosInitDuration = 0
HiberWriteDuration = 24021
HiberReadDuration = 11635
HiberPagesWritten = 144005
Attributes = 16641
TargetState = 5
EffectiveState = 5
WakeSourceType = 0
WakeSourceTextLength = 0
WakeTimerOwnerLength = 0
WakeTimerContextLength = 0

Provider:
Microsoft-Windows-Power-Troubleshooter

Descripción:
El sistema estaba en suspensión y se reanudó.

Hora de suspensión: ‎2020‎-‎02‎-‎19T11:12:55.650390600Z
Hora de reactivación: ‎2020‎-‎02‎-‎19T11:42:28.984375000Z

Origen de la reactivación: Desconocido

Process ID:
1740

Thread ID:
4400

Nombre de registro:System
Origen:        Microsoft-Windows-Power-Troubleshooter
Fecha:         19/02/2020 12:42:33
Id. del evento:1
Categoría de la tarea:Ninguno
Nivel:         Información
Palabras clave:
Usuario:       SERVICIO LOCAL
Equipo:        FJ-PC
Descripción:
El sistema estaba en suspensión y se reanudó.
 
Hora de suspensión: ‎2020‎-‎02‎-‎19T11:12:55.650390600Z
Hora de reactivación: ‎2020‎-‎02‎-‎19T11:42:28.984375000Z
 
Origen de la reactivación: Desconocido
XML de evento:
<Event xmlns="http://schemas.microsoft.com/win/2004/08/events/event">
  <System>
    <Provider Name="Microsoft-Windows-Power-Troubleshooter" Guid="{CDC05E28-C449-49C6-B9D2-88CF761644DF}" />
    <EventID>1</EventID>
    <Version>1</Version>
    <Level>4</Level>
    <Task>0</Task>
    <Opcode>0</Opcode>
    <Keywords>0x8000000000000000</Keywords>
    <TimeCreated SystemTime="2020-02-19T11:42:33.453125000Z" />
    <EventRecordID>113771</EventRecordID>
    <Correlation ActivityID="{872B88A8-29AC-4A6D-998B-8D216CDC8665}" />
    <Execution ProcessID="1740" ThreadID="4400" />
    <Channel>System</Channel>
    <Computer>FJ-PC</Computer>
    <Security UserID="S-1-5-19" />
  </System>
  <EventData>
    <Data Name="SleepTime">2020-02-19T11:12:55.650390600Z</Data>
    <Data Name="WakeTime">2020-02-19T11:42:28.984375000Z</Data>
    <Data Name="SleepDuration">9395</Data>
    <Data Name="WakeDuration">1472</Data>
    <Data Name="DriverInitDuration">1219</Data>
    <Data Name="BiosInitDuration">0</Data>
    <Data Name="HiberWriteDuration">24021</Data>
    <Data Name="HiberReadDuration">11635</Data>
    <Data Name="HiberPagesWritten">144005</Data>
    <Data Name="Attributes">16641</Data>
    <Data Name="TargetState">5</Data>
    <Data Name="EffectiveState">5</Data>
    <Data Name="WakeSourceType">0</Data>
    <Data Name="WakeSourceTextLength">0</Data>
    <Data Name="WakeSourceText">
    </Data>
    <Data Name="WakeTimerOwnerLength">0</Data>
    <Data Name="WakeTimerContextLength">0</Data>
    <Data Name="WakeTimerOwner">
    </Data>
    <Data Name="WakeTimerContext">
    </Data>
  </EventData>
</Event>
 
 

Te agradezco tu aporte pero lo que busco es eliminar los que tengan signos negativo adelante ,se que tenia todas esas Rutinas gracias a Electro, pero he perdido todos esos códigos y estoy en cero  
 he recuperado parte de todo el codigo pero no encuentro este,

saludos
Luis

     For I As Integer = 0 To ListBox1.Items.Count - 1
            If ListBox1.Items(I) < 0 Then
                ListBox1.Items(I) = ListBox1.Items(I) * -1
            End If
        Next

Public Class Form1
    Dim lista() As Integer = {-1, -2, -3, -4, -5, 0, 1, 2, 3, 4, 5, 6}
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'ListBox1.DataSource = lista
        For Each elemento In lista
            ListBox1.Items.Add(elemento)
        Next
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        '//QUITAR SIGNOS NEGATIVOS
        For I As Integer = 0 To ListBox1.Items.Count - 1
            If ListBox1.Items(I) < 0 Then
                ListBox1.Items(I) = ListBox1.Items(I) * -1 'nota: no funciona si se usa  ListBox1.DataSource()
            End If
        Next
 
        '//QUITAR ELEMENTOS REPETIDOS
        Dim nuevaLista As New List(Of Integer)
        For Each elemento In ListBox1.Items
            nuevaLista.Add(elemento)
        Next
 
        nuevaLista = nuevaLista.Distinct.ToList() 'elimina repetidos
        nuevaLista.Sort() 'Ordena la lista
        ListBox1.Items.Clear() 'limpia el listbox (no funciona con DataSource)
        'ListBox1.DataSource= Nothing 'usar solo si es se usó datasource para llenar el listbox
        For Each Elemento As String In nuevaLista
            ListBox1.Items.Add(Elemento)
        Next
    End Sub
End Class
 

Public Class Form1
    Dim lista() As Integer = {-1, -2, -3, -4, -5, 0, 1, 2, 3, 4, 5, 6}
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ListBox1.DataSource = lista
        'For I As Integer = 0 To lista.Length -1
        '    ListBox1.Items.Add(lista(I))
        'Next
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        '//elimina los número negativos
        Dim NumPositivo As IEnumerable(Of String) = Nothing
        NumPositivo = From value1 In lista Where (value1 >= 0) Select String.Format("{0}", value1)
        ListBox1.DataSource = Nothing
        'Si no se usara DataSourse usar lo siguinte:
        'ListBox1.Items.Clear()
        For Each pairs As String In NumPositivo
            ListBox1.Items.Add(pairs)
            My.Application.DoEvents()
        Next pairs
    End Sub
End Class
 

      Dim Lista As New List(Of Integer) 
        Lista.AddRange({1, 5, 5, 5, 4, 1, 12, 4, 55, 55, 55, 55})
        Lista = Lista.Distinct.ToList
         ListBox1.DataSource = Lista
 
        'For Each Elemento As String In Lista
            'ListBox1.Items.Add(Elemento)
        'Next