Public Class Card
    Private CardValue As Integer
    Private CardSuit As String

    Public Sub DealCard(ByVal val As Integer)
        Randomize()
        CardValue = Int(Rnd() * 52) + 1
        Select Case CardValue
            Case 1 To 13
                CardSuit = "Hearts"
            Case 14 To 26
                CardSuit = "Diamonds"
            Case 27 To 39
                CardSuit = "Clubs"
            Case 40 To 52
                CardSuit = "Spades"
        End Select
    End Sub
End Class

Imports System.IO
Public Class Form1

    Private Sub btnDeal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDeal.Click
        Dim Card1 As New Card
        Dim Card2 As New Card
        Card1.DealCard()
        Card2.DealCard()
    End Sub

    Private Sub btnWithdraw_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWithdraw.Click
        If lblBank.Text > 0 Then
            lblMoney.Text = Val(lblMoney.Text) + 10
            lblBank.Text = Val(lblBank.Text) - 10
        End If
    End Sub

    Private Sub btnDeposit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDeposit.Click
        If lblMoney.Text > 0 Then
            lblMoney.Text = Val(lblMoney.Text) - 10
            lblBank.Text = Val(lblBank.Text) + 10
        End If
    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub

    Private Sub btnHit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHit.Click

    End Sub
End Class