Загрузить картинку из ресурсов

Public Class Form1
    Public x, y, z As Integer
    Public imya As String
    Public cash = 100
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        If cash - 10 < 0 Then
            MsgBox("У вас кончились деньги для дальнейшей игры")
            Exit Sub
        End If
        start1.Enabled = True
        start2.Enabled = True
        start3.Enabled = True
        stop1.Enabled = True
        stop2.Enabled = True
        stop3.Enabled = True
        cash = cash - 10
        Label2.Text = "" & cash
    End Sub
 
    Private Sub start1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles start1.Tick
        Randomize()
        x = Int(Rnd() * 4) + 1
        Select Case x
            Case 1
                card1.Image = Image.FromFile("J:\1.png")
            Case 2
                card1.Image = Image.FromFile("J:\2.png")
            Case 3
                card1.Image = Image.FromFile("J:\3.png")
            Case 4
                card1.Image = Image.FromFile("J:\4.png")
        End Select
    End Sub
 
    Private Sub start2_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles start2.Tick
        Randomize()
        y = Int(Rnd() * 4) + 1
        Select Case y
            Case 1
                card2.Image = Image.FromFile("J:\1.png")
            Case 2
                card2.Image = Image.FromFile("J:\2.png")
            Case 3
                card2.Image = Image.FromFile("J:\3.png")
            Case 4
                card2.Image = Image.FromFile("J:\4.png")
        End Select
    End Sub
 
    Private Sub start3_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles start3.Tick
        Randomize()
        z = Int(Rnd() * 4) + 1
        Select Case z
            Case 1
                card3.Image = Image.FromFile("J:\1.png")
            Case 2
                card3.Image = Image.FromFile("J:\2.png")
            Case 3
                card3.Image = Image.FromFile("J:\3.png")
            Case 4
                card3.Image = Image.FromFile("J:\4.png")
        End Select
    End Sub
 
    Private Sub stop1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles stop1.Tick
        start1.Enabled = False
        stop1.Enabled = False
    End Sub
 
    Private Sub stop2_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles stop2.Tick
        start2.Enabled = False
        stop2.Enabled = False
    End Sub
 
    Private Sub stop3_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles stop3.Tick
        start3.Enabled = False
        stop3.Enabled = False
        If (x = 1) And (y = 1) And (z <> 1) Then
            MsgBox("Вы выиграли 10 рублей")
            cash = cash + 10
        End If
        If (x = 2) And (y = 2) And (z <> 2) Then
            MsgBox("Вы выиграли 20 рублей")
            cash = cash + 20
        End If
        If (x = 3) And (y = 3) And (z <> 3) Then
            MsgBox("Вы выиграли 30 рублей")
            cash = cash + 30
        End If
        If (x = 4) And (y = 4) And (z <> 4) Then
            MsgBox("Вы выиграли 40 рублей")
            cash = cash + 40
        End If
        If (x = 1) And (y <> 1) And (z = 1) Then
            MsgBox("Вы выиграли 5 рублей")
            cash = cash + 5
        End If
        If (x = 2) And (y <> 2) And (z = 2) Then
            MsgBox("Вы выиграли 5 рублей")
            cash = cash + 5
        End If
        If (x = 3) And (y <> 3) And (z = 3) Then
            MsgBox("Вы выиграли 5 рублей")
            cash = cash + 5
        End If
        If (x = 4) And (y <> 4) And (z = 4) Then
            MsgBox("Вы выиграли 5 рублей")
            cash = cash + 5
        End If
        If (x = 1) And (y = 1) And (z = 1) Then
            MsgBox("Вы выиграли 100 рублей")
            cash = cash + 100
        End If
        If (x = 2) And (y = 2) And (z = 2) Then
            MsgBox("Вы выиграли 100 рублей")
            cash = cash + 100
        End If
        If (x = 3) And (y = 3) And (z = 3) Then
            MsgBox("Вы выиграли 100 рублей")
            cash = cash + 100
        End If
        If (x = 4) And (y = 4) And (z = 4) Then
            MsgBox("Вы выиграли 250 рублей")
            cash = cash + 250
        End If
        Label2.Text = "" & cash
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Button1.Enabled = True
        cash = +100
        Label2.Text = "" & cash
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        imya = InputBox("Введи имя игрока")
        Button2.Enabled = True
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        End
    End Sub
 
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        MsgBox("Для начала игры необходимо зарегистрироваться, нажав кнопку Регистрация, после чего нажать кнопку Новая игра. После этого вы можете играть кликая по кнопке Старт. Каждая игра стоит 10 рублей.")
        Button3.Enabled = True
    End Sub
End Class