pictureBox y MovieBox

' Gambas class file

Public Sub _new()

End

Public Sub Form_Open()

  PictureBox1.Picture = Picture["adorable-gatito-6-5.jpg"]
  MovieBox1.Path = Application.path & "/homer002.gif"

End

Public Sub CheckBoxStrech_Click()

  If CheckBoxStrech.value = False Then
    PictureBox1.Stretch = False
  Else
    PictureBox1.Stretch = True
  Endif

End

Public Sub ToggleButton1_Click()

  If ToggleButton1.value = True Then
    MovieBox1.Playing = True
    ToggleButton1.text = "ejecutandose"
  Else
    MovieBox1.Playing = False
    ToggleButton1.text = "Parado"
  Endif

End