Imports System.Drawing

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Flip() Then
            heads = heads + 1
            THeads.Text = heads
            PictureBox1.Image = New Bitmap("c:\coin1.jpg")
        Else
            tails = tails + 1
            Ttails.Text = tails
            PictureBox1.Image = New Bitmap("c:\coin2.jpg")
        End If

    End Sub
End Class

Public Class Form1
    Dim heads As Integer = 0
    Dim tails As Integer = 0
    Dim totals As Integer = 0
    Dim coin As New Random
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Flip() Then
            heads = heads + 1
            THeads.Text = heads.ToString & ""
            coinPictureBox1.Image = New Bitmap("c:\graphics\refresh.jpg")
        Else
            tails = tails + 1
            Ttails.Text = tails
            coinPictureBox1.Image = New Bitmap("c:\graphics\stop.jpg")
        End If
        totals = totals + 1
        Ttotal.Text = totals
    End Sub
 
    Function Flip() As Boolean
        Return CBool(coin.Next(0, 2))
    End Function
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Randomize()
    End Sub
End Class