>	Kind as Integer<i>
	       One of the following values:
	         0 = Alkaline
	         1 = NiCad
	         2 = LiIon
	         3 = Rechargeable Alkaline
	         4 = NiMH
	         5 = LiIon, 1400mah</i></pre>

<blockquote>Example:</blockquote><pre>
	Dim Kind as Integer

	Kind = Dev.BatteryKind()
</pre>
<a name="BatteryPct"><h4>BatteryPct</h4>

<pre>	Pct = Dev.BatteryPct()</pre>

<blockquote>
	Returns the approximate percentage of battery life remaining.
</blockquote>
</pre><blockq