' Gambas class file


PUBLIC SUB Form_Open()
WAIT 
  PictureBox1.Width = Form1.Width
  PictureBox1.Height = Form1.Height
WAIT 
END

PUBLIC SUB stimul(xxx AS String)
  WAIT 
  PictureBox1.Picture = Picture.Load(xxx)
  WAIT 
END


PUBLIC SUB PictureBox1_DblClick()

  Form1.Visible = FALSE
WAIT 
END

PUBLIC SUB Form_Resize()

   PictureBox1.Width = Form1.Width
  PictureBox1.Height = Form1.Height

END

PUBLIC SUB Form_Show()
WAIT 
   PictureBox1.Width = Form1.Width
  PictureBox1.Height = Form1.Height
WAIT 
END



PUBLIC SUB PictureBox1_Menu()

 FMain.remstart()

END