' Gambas class file

Public Sub _new()

End

Public Sub Form_Open()

End

Public Sub Button2_Click()
Dim a As Integer
Dim b As Integer
a = 10
b = SpinBox1.Value
Try Print a / b
Print "Try was working"
If Error Then
  Print "If Error is working"
  Message.Error("CLASS:" & Str(Error.Class) & ",Code:" & Error.Code & "," & Error.Text & " AT:" & Error.Where, "OK")
Endif
End


Public Sub Button1_Click()

  Quit

End

Public Sub Button3_Click()
Dim a As Integer
Dim b As Integer
a = 10
b = SpinBox1.Value
Print a / b
Catch
  Print "Catch is working"
  If Error Then
   Message.Error("CLASS:" & Str(Error.Class) & ",Code:" & Error.Code & "," & Error.Text & " AT:" & Error.Where, "OK")
  Endif


End