Another useful-ish function

[GIAKEN]

This might be useful...not sure if it increases any speed (default sizes are 32x32 starting at 0,0 (useful for setting destination rects))

Code:

Public Function Get_RECT(Optional ByVal TopVal As Long = 0, Optional ByVal LeftVal As Long = 0, Optional ByVal Width As Long = SIZE_X, Optional ByVal Height As Long = SIZE_Y) As DXVBLib.RECT
    With Get_RECT
        .Top = TopVal
        .Bottom = .Top + Height
        .Left = LeftVal
        .Right = .Left + Width
    End With
End Function

Used:

Code:

Public Sub SpellEditorBltIcon()
Dim sRECT As DXVBLib.RECT
Dim dRECT As DXVBLib.RECT

    sRECT = Get_RECT(frmSpellEditor.scrlIcon.Value * SIZE_Y)
    dRECT = Get_RECT
    
    Engine_BltToDC DDS_SpellIcon, sRECT, dRECT, frmSpellEditor.picIcon

End Sub

[Anthony]

Nice. I prefer this method far more as opposed to the other one.

[GIAKEN]

I've got my source fully converted to using this function and it works 100%