Visual Basic 6 - controllare l'alimentazione del pc

Ciao a tutti, vorrei inserire nel mio progetto con VB6 un controllo che mi pertesse di visualizzare se il mio portatile sfrutta la rete elettrica opp la Batteria e se possibile visualizzare anche il livello della medesima.

Grazie tante

P.S.

Grazie per il codice e gli esempi !!!

Su internet ho trovato questo esempio:

Private Type SYSTEM_POWER_STATUS
    ACLineStatus As Byte
    BatteryFlag As Byte
    BatteryLifePercent As Byte
    Reserved1 As Byte
    BatteryLifeTime As Long
    BatteryFullLifeTime As Long
    End Type
Private Declare Function GetSystemPowerStatus Lib "kernel32" (lpSystemPowerStatus As SYSTEM_POWER_STATUS) As Long

Private Sub Timer1_Timer()

Dim SPS As SYSTEM_POWER_STATUS

GetSystemPowerStatus SPS

Select Case SPS.ACLineStatus
    Case 0
    Label1 = "Tipo alimentazione: Batteria"
    Case 1
    Label1 = "Tipo alimentazione: Rete"
    Case 2
    Label1 = "Tipo alimentazione: Sconosciuto"
End Select

Select Case SPS.BatteryFlag
    Case 1
    Label2 = "Livello batteria: Alto"
    Case 2
    Label2 = "Livello batteria: Basso"
    Case 4
    Label2 = "Livello batteria: Critico"
    Case 8
    Label2 = "Livello batteria: In carica"
    Case 128
    Label2 = "Livello batteria: Nessuna batteria inserita"
    Case 255
    Label2 = "Livello batteria: Sconosciuto"
End Select

End Sub

Aggiungi al form label1, label2 con AutoSize = True e un timer con interval = 100