NPC Editor Error

[Hellrise]

Code:

Public Sub NpcEditorInit()
'*********************************************************** *****
'* WHEN        WHO        WHAT
'* ----        ---        ----
'* 07/12/2005  Shannara   Added gfx constant.
'* 10/29/2005  Grim       Now loads from Sprite surface
'*********************************************************** *****
Dim DC As Long

     DC = DD_SpriteSurf.GetDC
     Call BitBlt(frmNpcEditor.picSprites.hdc, 0, 0, DDSD_Sprite.lWidth, DDSD_Sprite.lHeight, DC, 0, 0, vbSrcCopy)
     DD_TileSurf.ReleaseDC (DC)

     frmNpcEditor.txtName.Text = Trim(Npc(EditorIndex).Name)
     frmNpcEditor.txtAttackSay.Text = Trim(Npc(EditorIndex).AttackSay)
     frmNpcEditor.scrlSprite.Value = Npc(EditorIndex).Sprite
     frmNpcEditor.txtSpawnSecs.Text = STR(Npc(EditorIndex).SpawnSecs)
     frmNpcEditor.cmbBehavior.ListIndex = Npc(EditorIndex).Behavior
     frmNpcEditor.scrlRange.Value = Npc(EditorIndex).Range
     frmNpcEditor.txtChance.Text = STR(Npc(EditorIndex).DropChance)
     frmNpcEditor.scrlNum.Value = Npc(EditorIndex).DropItem
     frmNpcEditor.scrlValue.Value = Npc(EditorIndex).DropItemValue
     frmNpcEditor.scrlSTR.Value = Npc(EditorIndex).STR
     frmNpcEditor.scrlDEF.Value = Npc(EditorIndex).DEF
     frmNpcEditor.scrlSPEED.Value = Npc(EditorIndex).SPEED
     frmNpcEditor.scrlMAGI.Value = Npc(EditorIndex).MAGI
    
     frmNpcEditor.Show vbModal
End Sub

Here you go dave.
And Lmao sorry about that robin