View a playing card using VBCARDS.OCX

Dim CountCard As Integer
 Private Sub Command1_Click()
If CountCard >= 69 Then CountCard = 1
'CountCard can be any number from 1 to 68
'Each number equals different DSeck image.

 Deck1.ChangeCard = CountCard 'Change the Picture property of Deck1
 Image1.Picture = Deck1.Picture 'Copy the picture of Deck1
Label1.Caption = "The number for this card is " & CountCard
CountCard = CountCard + 1
End Sub
Private Sub Form_Load()
CountCard = 1
            'the "Destination pad"
 Image1.Picture = Deck1.Picture 'Copy the picture of Deck1 to image1
End Sub