RM** Sprites Converter

[GIAKEN]

A fix

Code:

Sub SplitImage()
Dim i As Long
Dim Placehere(0 To 3) As Byte

    frmMain.picConversion.Width = (frmMain.picImage.ScaleWidth * 4) * Screen.TwipsPerPixelX
    frmMain.picConversion.Height = Val(frmMain.txtSizeY) * Screen.TwipsPerPixelY
  
    Placehere(0) = 1
    Placehere(1) = 2
    Placehere(2) = 3
    Placehere(3) = 0
  
    For i = 0 To 3 '((frmMain.picImage.ScaleHeight) / Val(frmMain.txtSizeY)) - 1
        BitBlt frmMain.picConversion.hDC, (frmMain.txtFrames * frmMain.txtSizeX) * Placehere(i), 0, frmMain.picImage.ScaleWidth, Val(frmMain.txtSizeY), frmMain.picImage.hDC, 0, i * Val(frmMain.txtSizeY), vbSrcCopy
    Next
  
    TotalSpritesSaved = TotalSpritesSaved + 1
  
    SavePicture frmMain.picConversion.Image, App.Path & "\Splitted Images\sprite" & TotalSpritesSaved & Extension
    AddToLog "sprite" & TotalSpritesSaved & Extension & " saved. Conversion finished!"
  
End Sub