I have entered the first bit of code as follows -

Sub Button1_Click(sender As Object, e As EventArgs)

  Label3.Visible = False
  Label1.Text = Int(Rnd() * 6) + 1
  Label2.Text = Int(Rnd() * 6) + 1
  If Label1.Text = "1" And Label2.Text = "1" Then
    Label4.Text = 0
    Label3.Visible = True
  Else
    Label4.Text = CInt(Label4.Text) + _
                  CInt(Label1.Text) + CInt(Label2.Text)
  End If

End Sub


This is my first time. I am receiving an error in Line 16.

What am I doing wrong? mcrawford@mike101.com

thanks,

Michael