Batteri status i API

Dette er et program til at vise forskellige oplysninger om computeren - direkte på skrivebordet! Det er rigtig smart (og gratis), men det har altså ikke noget med API-kald eller VB at gøre... Bortset fra at man kan lave sine egne i scripts i programmet - i f.eks. VB eller Java.
Link: http://www.samurize.com/?page=download
-Sion

Ja, det kender jeg godt, men jeg skal ha status på batteriet frem med VB.NET.

OK, må bare have misforstået "et lille program der kan få status frem"... Jeg kender ikke metoden i .NET, men i VB6 er koden:

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 Form_Paint()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Hotmail.com
    Dim SPS As SYSTEM_POWER_STATUS
    'get the battery powerstatus
    GetSystemPowerStatus SPS
    Me.AutoRedraw = True
    'show some information
    Select Case SPS.ACLineStatus
        Case 0
            Me.Print "AC power status: Offline"
        Case 1
            Me.Print "AC power status: OnLine"
        Case 2
            Me.Print "AC power status: Unknown"
    End Select
    Select Case SPS.BatteryFlag
        Case 1
            Me.Print "Battery charge status: High"
        Case 2
            Me.Print "Battery charge status: Low"
        Case 4
            Me.Print "Battery charge status: Critical"
        Case 8
            Me.Print "Battery charge status: Charging"
        Case 128
            Me.Print "Battery charge status: No system battery"
        Case 255
            Me.Print "Battery charge status: Unknown Status"
    End Select
End Sub

Kan være jeg har været lidt "uklar"... Takker for svaret, det kan lede mig i den rigtige retning.