Public Class Form1
    Dim headCount As Integer
    Dim tailCount As Integer
    Dim choice As Integer
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lblHeadCt.Text = "Heads: " & Str(headCount)
        lblTailCt.Text = "Heads: " & Str(tailCount)
    End Sub
 
    Private Sub cmdFlip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdFlip.Click
        Randomize()
        choice = Int(Rnd() * 2)
 
        If choice = 0 Then
            headCount = headCount + 1
            imgCoin = Image.FromFile()
        Else
            tailCount = tailCount + 1
            imgCoin =
        End If
 
End Sub
End Class

        Dim coinImage As Image
        Dim imagePath As String = ""
 
        If choice = 0 Then
            headCount = headCount + 1
            imagePath = "Heads.gif"
        Else
            tailCount = tailCount + 1
            imagePath = "Tails.gif"
        End If
 
        ' Here you have your image loaded in coinImage
        coinImage = New Bitmap(imagePath)

PictureBox1.Image = coinImage