Ejemplo Timer

' Gambas class file

Private avance As Integer = 10

Public Sub _new()

End

Public Sub Form_Open()

  ComboBoxOperador.Add("suma")
  ComboBoxOperador.Add("resta")
  ComboBoxOperador.Add("multiplica")
  ComboBoxOperador.Add("divide")

  'Recalculo en 1 segundo:
  TimerCalcular.Delay = 1000 '1 segundo
  TimerCalcular.Start()

  'dibujo animado
  TimerAnimacion.delay = 500 '0.5 segundos
  TimerAnimacion.Start()

End

Public Sub TimerCalcular_Timer()

  Select Case ComboBoxOperador.Text
    Case "suma"
      ValueBoxResultado.value = ValueBox1.value + ValueBox2.Value
      LabelMensaje.text = "He sumado"
    Case "resta"
      ValueBoxResultado.value = ValueBox1.value - ValueBox2.Value
      LabelMensaje.text = "He restado"
    Case "multiplica"
      ValueBoxResultado.value = ValueBox1.value * ValueBox2.Value
      LabelMensaje.text = "He multiplicado"
    Case "divide"
      If ValueBox2.value <> 0 Then
        ValueBoxResultado.value = ValueBox1.value / ValueBox2.Value
        LabelMensaje.text = "He dividido"
      Else
        LabelMensaje.text = "No puedo dividir entre cero"
      Endif
  End Select

End

Public Sub TimerAnimacion_Timer()
  'calculando si rebota o no al llegar a los bordes:

  If (PictureBox1.x + PictureBox1.w) > Me.w Then
    avance = -10
  Else
    If PictureBox1.x < 0 Then
      avance = +10
    Endif
  Endif
  PictureBox1.x += avance

End