Managed to work this out myself
Had to split the image up so I just had one Row on Monsters/Characters then did the following
Dim AllMosters = New DarkGDK.Basic2D.Image(My.Computer.FileSystem.CurrentDirectory & "\Images\Characters.png")
AllMosters.Paste(0, 0)
Dim Characters(15) As Basic2D.Sprite
Dim ImageHolder(15) As Basic2D.Image
Dim PosX As Integer = 0
For x = 0 To 15
ImageHolder(x) = New Basic2D.Image((x * 26), 0, (x + 1) * 26, 70)
Characters(x) = New Basic2D.Sprite(0, 0, ImageHolder(x))
'PosX = PosX + 25
Next
AllMosters.Delete()
DarkGDK.Basic2D.Sprite.HideAll()
Any comments welcome if this is the wrong way or there is a better way