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 ------------------------------------------------------------------------------ Return on Information: Google Enterprise Search pays you back Get the facts. http://p.sf.net/sfu/google-dev2dev _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user
