Sprite Selection

[Tony]

Sprite Selection
This was done %100 by Pando

You get to select any sprite of your desire at New Character.
This is just a simple modification, a little bittle this and a little bit of that :wink:

• First lets setup our controls - frmNewChar
  
  picSpriteLoader - AutoRedraw AutoResize Visible False
  lblDown with caption of ""
  txtSprite with text of "0" Visible False
  picSprite
  tmrSprite Interval 1

In lblDown (code) add

(For 32x64 Sprites, CHALLENGE! - Change to 32x32)

Code:

Dim Cap As Integer

    Cap = txtSprite.Text
    If txtSprite.Text = "2" Then
        txtSprite.Text = "0"
    ElseIf txtSprite.Text = "0" Then
    
    Else
    txtSprite.Text = Cap - 2
     End If

In lblUp (Code you f'in noob [b]