[Gambas-user] How to close a modal dialog form?

[M. Cs.]

Solved!

PUBLIC SUB Messenger(naslov AS String, tekst AS String, slika AS String)
DIM imge AS PictureBox
DIM conti AS TextLabel
DIM butty AS Button
DIM i AS Integer
keret = NEW Form
keret.Width = 500
keret.Height = 300
keret.Title = naslov
imge = NEW PictureBox(keret)
imge.x = 0
imge.y = 0
imge.Width = 280
imge.Height = 280
imge.Border = TRUE
imge.Picture = Picture[slika]
conti = NEW TextLabel(keret)
conti.x = 300
conti.y = 20
conti.Width = 190
conti.Height = 230
conti.Text = tekst
butty = NEW Button(keret)
butty.x = 340
butty.y = 250
butty.Width = 120
butty.Height = 25
butty.Text = MessageYes.Text
keret.Center
Object.Attach(butty, ME, "Ops")
keret.ShowModal()

END

PUBLIC SUB Ops_Click()
keret.Close()
END