Mirage Source

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

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