For i = 1 To MAX_PLAYER_SPELLS
Player(MyIndex).Spell(i) = Val(Parse(i))
'If Player(MyIndex).Spell(i) <> 0 Then
frmGame.lstSpells.AddItem i & ": " & Trim(Spell(Player(MyIndex).Spell(i)).name)
Select Case Trim(Spell(Player(MyIndex).Spell(i)).name)
Case "Fireball I"
Select Case i
Case 0: frmGame.lstSpells.AddItem "Empty spell slot."
Case 1: frmGame.Picture11.Picture = frmGame.Fireball.Picture
Case 2: frmGame.Picture13.Picture = frmGame.Fireball.Picture
Case 3: frmGame.Picture15.Picture = frmGame.Fireball.Picture
Case 4: frmGame.Picture16.Picture = frmGame.Fireball.Picture
Case 5: frmGame.Picture17.Picture = frmGame.Fireball.Picture
Case 6: frmGame.Picture18.Picture = frmGame.Fireball.Picture
Case 7: frmGame.Picture19.Picture = frmGame.Fireball.Picture
Case 8: frmGame.Picture20.Picture = frmGameFireball.Picture
Case 9: frmGame.Picture21.Picture = frmGame.Fireball.Picture
Case 10: frmGame.Picture22.Picture = frmGame.Fireball.Picture
Case 11: frmGame.Picture23.Picture = frmGame.Fireball.Picture
End Select
Case "Raging Strike I"
Select Case i
Case 0: frmMirage.lstSpells.AddItem "Empty spell slot."
Case 1: frmMirage.Picture11.Picture = frmGame.RagingStrike.Picture
Case 2: frmGame.Picture13.Picture = frmGame.RagingStrike.Picture
Case 3: frmGame.Picture15.Picture = frmGame.RagingStrike.Picture
Case 4: frmGame.Picture16.Picture = frmGame.RagingStrike.Picture
Case 5: frmGame.Picture17.Picture = frmGame.RagingStrike.Picture
Case 6: frmGame.Picture18.Picture = frmGame.RagingStrike.Picture
Case 7: frmGame.Picture19.Picture = frmGame.RagingStrike.Picture
Case 8: frmGame.Picture20.Picture = frmGame.RagingStrike.Picture
Case 9: frmGame.Picture21.Picture = frmGame.RagingStrike.Picture
Case 10: frmGame.Picture22.Picture = frmGame.RagingStrike.Picture
Case 11: frmGame.Picture23.Picture = frmGame.RagingStrike.Picture
..................................................
..................................................
End Select