Message: Crear mensajes en gambas3

Existe una clase con la que podemos crear mensajes para mostrar por pantalla: Message

La cual tiene la propiedad TiTle, que especifica el titulo que va a tener el mensaje, y varios métodos para indicar diversos tipos de mensajes (borrado, aviso, error, información y pregunta)

A continuación os traigo un ejemplo de como usarlo:

Public Sub Form_Open()

Dim respuesta As Integer

'-------------------------------------------

'Ejemplo de uso de message.Delete (borrado)

'-------------------------------------------

Message.Title = "Borrar: Titulo del mensaje"

respuesta = Message.Delete("Texto", "boton 1", "boton 2", "boton 3")

Print "Mensaje Delete: respuesta elegida ", respuesta

'-------------------------------------------

'Ejemplo de uso de message.Warning (aviso)

'-------------------------------------------

Message.Title = "Warning: Titulo del mensaje"

respuesta = Message.Warning("Texto", "boton 1", "boton 2", "boton 3")

Print "Mensaje Warning: respuesta elegida ", respuesta

'-------------------------------------------

'Ejemplo de uso de message.Error (Error)

'-------------------------------------------

Message.Title = "Error: Titulo del mensaje"

respuesta = Message.Error("Texto", "boton 1", "boton 2", "boton 3")

Print "Mensaje Error: respuesta elegida ", respuesta

'-------------------------------------------

'Ejemplo de uso de message.info (informacion)

'-------------------------------------------

Message.Title = "Info: Titulo del mensaje"

respuesta = Message.Info("Texto", "boton 1")

Print "Mensaje Info: respuesta elegida ", respuesta

'-------------------------------------------

'Ejemplo de uso de message.Question (pregunta)

'-------------------------------------------

Message.Title = "Question: Titulo del mensaje"

respuesta = Message.Question("Texto", "boton 1", "boton 2", "boton 3")

Print "Mensaje Question: respuesta elegida ", respuesta

End

Os dejo en enlace de descarga del ejemplo: enlace en box.com

Para más información:
http://gambaswiki.org/wiki/comp/gb.form/message?nh