public Sub dealCard1() 
  	If c1 = 1 Then
            card1.Image = Image.FromFile("ac.png")
        ElseIf c1 = 2 Then
            card1.Image = Image.FromFile("2c.png")
        ElseIf c1 = 3 Then
            card1.Image = Image.FromFile("3c.png")
        ElseIf c1 = 4 Then
            card1.Image = Image.FromFile("4c.png")
        ElseIf c1 = 5 Then
            card1.Image = Image.FromFile("5c.png")
        ElseIf c1 = 6 Then
            card1.Image = Image.FromFile("6c.png")
        ElseIf c1 = 7 Then
            card1.Image = Image.FromFile("7c.png")
        ElseIf c1 = 8 Then
            card1.Image = Image.FromFile("8c.png")
        ElseIf c1 = 9 Then
            card1.Image = Image.FromFile("9c.png")
        ElseIf c1 = 10 Then
            card1.Image = Image.FromFile("10c.png")
        ElseIf c1 = 11 Then
            card1.Image = Image.FromFile("jc.png")
        ElseIf c1 = 12 Then
            card1.Image = Image.FromFile("qc.png")
        ElseIf c1 = 13 Then
            card1.Image = Image.FromFile("kc.png")
            'Diamonds Start (14 to 26)
        ElseIf c1 = 14 Then
            card1.Image = Image.FromFile("ad.png")
        ElseIf c1 = 15 Then
            card1.Image = Image.FromFile("2d.png")
        ElseIf c1 = 16 Then
            card1.Image = Image.FromFile("3d.png")
        ElseIf c1 = 17 Then
            card1.Image = Image.FromFile("4d.png")
        ElseIf c1 = 18 Then
            card1.Image = Image.FromFile("5d.png")
        ElseIf c1 = 19 Then
            card1.Image = Image.FromFile("6d.png")
        ElseIf c1 = 20 Then
            card1.Image = Image.FromFile("7d.png")
        ElseIf c1 = 21 Then
            card1.Image = Image.FromFile("8d.png")
        ElseIf c1 = 22 Then
            card1.Image = Image.FromFile("9d.png")
        ElseIf c1 = 23 Then
            card1.Image = Image.FromFile("10d.png")
        ElseIf c1 = 24 Then
            card1.Image = Image.FromFile("jd.png")
        ElseIf c1 = 25 Then
            card1.Image = Image.FromFile("qd.png")
        ElseIf c1 = 26 Then
            card1.Image = Image.FromFile("kd.png")
            '27 to 39 is Hearts
        ElseIf c1 = 27 Then
            card1.Image = Image.FromFile("ah.png")
        ElseIf c1 = 28 Then
            card1.Image = Image.FromFile("2h.png")
        ElseIf c1 = 29 Then
            card1.Image = Image.FromFile("3h.png")
        ElseIf c1 = 30 Then
            card1.Image = Image.FromFile("4h.png")
        ElseIf c1 = 31 Then
            card1.Image = Image.FromFile("5h.png")
        ElseIf c1 = 32 Then
            card1.Image = Image.FromFile("6h.png")
        ElseIf c1 = 33 Then
            card1.Image = Image.FromFile("7h.png")
        ElseIf c1 = 34 Then
            card1.Image = Image.FromFile("8h.png")
        ElseIf c1 = 35 Then
            card1.Image = Image.FromFile("9h.png")
        ElseIf c1 = 36 Then
            card1.Image = Image.FromFile("10h.png")
        ElseIf c1 = 37 Then
            card1.Image = Image.FromFile("jh.png")
        ElseIf c1 = 38 Then
            card1.Image = Image.FromFile("qh.png")
        ElseIf c1 = 39 Then
            card1.Image = Image.FromFile("kh.png")
            ' 40 to 52 are spades
        ElseIf c1 = 40 Then
            card1.Image = Image.FromFile("as.png")
        ElseIf c1 = 41 Then
            card1.Image = Image.FromFile("2s.png")
        ElseIf c1 = 42 Then
            card1.Image = Image.FromFile("3s.png")
        ElseIf c1 = 43 Then
            card1.Image = Image.FromFile("4s.png")
        ElseIf c1 = 44 Then
            card1.Image = Image.FromFile("5s.png")
        ElseIf c1 = 45 Then
            card1.Image = Image.FromFile("6s.png")
        ElseIf c1 = 46 Then
            card1.Image = Image.FromFile("7s.png")
        ElseIf c1 = 47 Then
            card1.Image = Image.FromFile("8s.png")
        ElseIf c1 = 48 Then
            card1.Image = Image.FromFile("9s.png")
        ElseIf c1 = 49 Then
            card1.Image = Image.FromFile("10s.png")
        ElseIf c1 = 50 Then
            card1.Image = Image.FromFile("js.png")
        ElseIf c1 = 51 Then
            card1.Image = Image.FromFile("qs.png")
        ElseIf c1 = 52 Then
            card1.Image = Image.FromFile("ks.png")
        End If
End Sub