[Gambas-user] why this code not working

[tsukuba GIMP user]

Public Sub PictureBox1_MouseDown()

  Dim dicer As Integer
  Dim dbclick As Integer
  dicer = Int(Rnd(1, 5))
  dbclick = +1 <-------------------------------Problem code 
  If dbclick = 8 Then <------- i click 8 time but it's don't run this code just like my program forget this code
    Form3.Text = ("xxxxx")
    Form3.TextBox1.text = ("xxxxxx!!!!!!!") 
    Form3.Show
  Else
    Goto just_keep_moveing
  Endif
  just_keep_moveing:
  If dicer = 1 Then
    Form3.Text = ("xxxx")
    Form3.TextBox1.Text = ("xxxxxxx~")
    Form3.Show
  Else If dicer = 2 Then
    Form3.Text = ("xxxx")
    Form3.TextBox1.text = ("xxxxx!xxxx!")
    Form3.Show
  Else If dicer = 3 Then
    Form3.Text = ("xxxx")
    Form3.TextBox1.text = ("xxxxxxx?")
    Form3.Show
  Else If dicer = 4 Then
    Form3.Text = ("xxxx")
    Form3.TextBox1.text = ("xxxx!")
    Form3.Show
  Endif
End