[VB.Net]Pokemon in VB