' 20-November-2011 Example program by J. van Zijl aka Slowdown.
' A DialogBox with multiple options.
' compiler beta june 22 2011
' IDE      beta july 11 2011
' You can find me on,
' http://www.q7basic.org/forum/index.php and
' http://www.kbasic.com/forum/index.php


Event Init()

End Event

Signal on_pushButton_clicked(Checked As Boolean)
  Dim n As Integer

  n = OpenDialog("mydialog")
  MsgBox("n", n)
  MsgBox("Return value ", ReturnValue)
End Signal