There is something wrong with the way you are accessing the member pointer Group.
Here is how it is defined in the class
So group is a pointer to the type/class CardGroupItem which is defined as three integers:
Code: Select all
Type CardGroupItem
'a group may or may not all be showing
As Integer Show 'Front or back
As Integer Selected
As Integer CardVal
End Type
In your code you are trying to access the Selected member variable, but using the square brackets offsets the pointer and screw everything.
You can only get to 'Selected' by
.
Here is how it is used in the code authors AllGroups.bas:
Using the dot operator and not the pointer '->'.
I don't really understand what is happing in this code, or even if/how his code could possibly work. But assuming it works, this is likely the change you need to make.