Issues; male female;32x64

[GIAKEN]

Yeah I got mine to work.

Make a timer with an interval of 50. Double click it and add this:

Code:

SelectNewCharBlt

Then add this sub wherever:

Code:

Public Sub SelectNewCharBlt()
Dim sRECT As RECT
Dim sRECT2 As RECT
Dim dRECT As RECT
    
    With dRECT
        .top = 0
        .Bottom = 32
        .Left = 0
        .Right = 32
    End With
    
    If DD_SpriteSurf Is Nothing Then
    Else
        With sRECT
            If frmNewChar.optMale.Value = True Then
                .top = (tmpNewChar(frmNewChar.cmbClass.ListIndex + 1) * PIC_Y * 2)
            Else
                .top = (tmpNewChar2(frmNewChar.cmbClass.ListIndex + 1) * PIC_Y * 2)
            End If
            .Left = PIC_X * 3
            .Right = .Left + 32
            .Bottom = .top + 32
        End With
        
        With sRECT2
            .top = sRECT.top + 32
            .Left = sRECT.Left
            .Right = sRECT.Right
            .Bottom = .top + 32
        End With
        
        Call DD_SpriteSurf.BltToDC(frmNewChar.picpic(1).hdc, sRECT, dRECT)
        Call DD_SpriteSurf.BltToDC(frmNewChar.picpic(2).hdc, sRECT2, dRECT)
        frmNewChar.picpic(1).Refresh
        frmNewChar.picpic(2).Refresh
    End If

End Sub

Also make sure you make 2 picture boxes called picpic with indexes 1-2 with sizes of 32x32 and 1 is above 2 (obviously). Also make sure you put InitDirectX in Sub Main().