Unnamed

Private curcard As Currency
Private curscore As Currency
Private curdealerscore As Currency
Private curdealercard1 As Currency
Private curdealercard2 As Currency
Private curdealercard3 As Currency

Private Sub cmddeal_Click()
     curdealercard1 = Int(10 * Rnd + 1)      'Randomizes dealers cards
     curdealercard2 = Int(10 * Rnd + 1)      'Randomizes dealers cards
     curdealercard3 = Int(10 * Rnd + 1)
    
  
    
    
    lbldealer1.Caption = "***"
    lbldealer2.Caption = "***"
    lbldealer3.Caption = "***"
    

End Sub

Private Sub cmdhitme_Click()
        curcard = Int(10 * Rnd + 1)
        curscore = curscore + curcard
        lblPlayersCards.Caption = curcard
        lblyourtotal.Caption = curscore
        If curscore > 21 Then
    MsgBox "Your Points Are Higher Then 21 You busted! You lose!", vbOKOnly, "Busted"
            curdealercard1 = 0                                                                        'Restarts game
            curdealercard2 = 0
            curdealercard3 = 0
            curscore = 0

            lbldealer1.Caption = ""
            lbldealer2.Caption = ""
            lbldealer3.Caption = ""
            lblPlayersCards.Caption = ""
            lblyourtotal.Caption = ""

            lbldealertotal.Caption = ""
    
    End If
    
    
End Sub
     


Private Sub cmdstay_Click()
     lbldealer1.Caption = curdealercard1
     lbldealer2.Caption = curdealercard2
     lbldealer3.Caption = curdealercard3
     
     curdealerscore = curdealercard1 + curdealercard2 + curdealercard3

     lbldealertotal.Caption = curdealerscore
         If curdealerscore > 21 Then
    MsgBox "Dealer points are to high he busts. You Win!", vbOKOnly, "Winner"
            curdealercard1 = 0                                                                        'Restarts game
            curdealercard2 = 0
            curdealercard3 = 0
            curscore = 0

            lbldealer1.Caption = ""
            lbldealer2.Caption = ""
            lbldealer3.Caption = ""
            lblPlayersCards.Caption = ""
            lblyourtotal.Caption = ""

            lbldealertotal.Caption = ""
              
        ElseIf curscore > curdealerscore Then
     MsgBox "Your Points Are Higher Then The Dealer. You Win!", vbOKOnly, "Winner"
            curdealercard1 = 0
            curdealercard2 = 0
            curdealercard3 = 0
            curscore = 0

            lbldealer1.Caption = ""
            lbldealer2.Caption = ""
            lbldealer3.Caption = ""
            lblPlayersCards.Caption = ""
            lblyourtotal.Caption = ""

            lbldealertotal.Caption = ""
            
        ElseIf curscore = curdealerscore Then
    MsgBox "The Dealer Has The Same Amount Of Points As You. Dealer Wins!", vbOKOnly, "Loser"
            curdealercard1 = 0
            curdealercard2 = 0
            curdealercard3 = 0
            curscore = 0
        
            lbldealer1.Caption = ""
            lbldealer2.Caption = ""
            lbldealer3.Caption = ""
            lblPlayersCards.Caption = ""
            lblyourtotal.Caption = ""
        
            lbldealertotal.Caption = ""
    
        ElseIf curscore < curdealerscore Then
     MsgBox "Your Points Are Lower Then The Dealers. You Lose!", vbOKOnly, "Loser"
            curdealercard1 = 0
            curdealercard2 = 0
            curdealercard3 = 0
            curscore = 0
        
            lbldealer1.Caption = ""
            lbldealer2.Caption = ""
            lbldealer3.Caption = ""
            lblPlayersCards.Caption = ""
            lblyourtotal.Caption = ""
        
            lbldealertotal.Caption = ""
        End If
    
    
End Sub


Private Sub Form_Load()
    Randomize
End Sub