Here's the situation.

I start me program I want the cards to be delt start away. Can anyone see what I am doing wrong.

This code is just an example:

Global Function declareations
Code:
Declare Function cdtInit Lib "Cards32.dll" (dx As Long, dy As Long) As Long
Declare Function cdtDrawExt Lib "Cards32.dll" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal dx As Long, ByVal dy As Long, ByVal ordCard As Long, ByVal iDraw As Long, ByVal clr As Long) As Long
Declare Function cdtDraw Lib "Cards32.dll" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal iCard As Long, ByVal iDraw As Long, ByVal clr As Long) As Long
Declare Function cdtAnimate Lib "Cards32.dll" (ByVal hdc As Long, ByVal iCardBack As Long, ByVal X As Long, ByVal Y As Long, ByVal iState As Long) As Long
Declare Function cdtTerm Lib "Cards32.dll" () As Long
Code

Code:
Private Sub Form_Load()
        
    Dim CWidth As Long, CHeight As Long, temp As Integer
    cdtInit CWidth, CHeight
    
    Randomize
    
    temp = Int(51 * Rnd)
    
    cdtDraw Me.hdc, 0, 0, temp, ordFaces, Me.BackColor
    
End Sub
This is supposed to draw a random card in the top left corner of the form.

Thanks for your help

[Edited by Cyber_Warrior on 10-27-2000 at 01:12 AM]