I've created a Basic Strategy Blackjack testing program for the Casino Professional. The program is meant to display a hand, and offer answer options. My first dilemma that I was able to fix was the answer option sub became too large, so I split it into 7 different subs, and that seemed to work. I also have a counter going for the number of correct responses and the number of incorrect repsonses. The problem is this: if the person using the program gets all of the questions right, the correct counter increments correctly. If they get them all wrong the incorrect counter increments correctly. If within the first sub the user gets some right and some wrong, both counters increment correctly through the entire program, BUT if the user gets all the questions right in the first sub, and then gets one wrong any where in the following subs, I get a type mismatch error '13'. The breakpoint comes at the name of the incorrect counter which is intincorrect. I have tried all the different data types I can think of and also declared them as static integers in each sub. I've attached the code at the beginning of each sub, as well as the general declarations. Do you have any suggestions? I'm about to pull my hair out.... code: This code is in module 1 Option Explicit Public strName As String Public strBadge As String Dim intcorrect As Variant Dim intincorrect As Variant Private Sub optAnswer_Click(Index As Integer) 'Frame 0 Static intcorrect As Variant Static intincorrect As Variant Private Sub optAnswer2_Click(Index As Integer) Static intcorrect As Variant Static intincorrect As Variant intcorrect = [login to view URL] intincorrect = [login to view URL] When I get to the breakpoint, the values for intincorrect = 0, but the lblIncorrect Caption is displaying as "". I'm thinking my problem is there, but I'm not sure what to do. In the beginning, I declared all of these as integers, but I think the zero threw that off. I've tried long and variant. If you can help, I appreciate it. It just seems so stupid that I can't get the counter to work properly now. I could probably get around it another way, but would like it to increment if possible. Thanks in advance for your help. Bob Guidice
## Deliverables
Deliver fully functional counter. All copyrights remain mine.
## Platform
Windows 98 or higher