' 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 loginfo(aaa AS String)
  Label1.Text = aaa
END
PUBLIC SUB cyklusinfo(bbb AS String)
  label2.Text = bbb
END

PUBLIC SUB PictureBox1_DblClick()
  Form1.FullScreen = FALSE
  Form1.Visible = FALSE
  FMain.Visible = TRUE
  Form1.Close
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