Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim typ As Type = GetType(System.Windows.Forms.PowerStatus)
        Dim pri As Reflection.PropertyInfo() = typ.GetProperties()
        ListBox1.Items.Clear()
        ListBox1.Items.Add("***Batterieinformationen*** ")
        For i As Int32 = 0 To pri.Length - 1
             ListBox1.Items.Add(pri(i).Name & " = " & pri(i).GetValue( _
               SystemInformation.PowerStatus, Nothing).ToString)
        Next
End Sub