document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Public Sub _new()
  4.  
  5. End
  6.  
  7. Public Sub Form_Open()
  8.  
  9.   PictureBox1.Picture = Picture["adorable-gatito-6-5.jpg"]
  10.   MovieBox1.Path = Application.path & "/homer002.gif"
  11.   ImageView1.Image = Image.Load("adorable-gatito-6-5.jpg")
  12.  
  13. End
  14.  
  15. Public Sub CheckBoxStrech_Click()
  16.  
  17.   If CheckBoxStrech.value = False Then
  18.     PictureBox1.Stretch = False
  19.   Else
  20.     PictureBox1.Stretch = True  
  21.   Endif
  22.  
  23. End
  24.  
  25. Public Sub ToggleButton1_Click()
  26.  
  27.   If ToggleButton1.value = True Then
  28.     MovieBox1.Playing = True
  29.     ToggleButton1.text = "ejecutandose"
  30.   Else
  31.     MovieBox1.Playing = False
  32.     ToggleButton1.text = "Parado"
  33.   Endif
  34.  
  35. End
');