#vb.net - Ejemplo de Botones con Mensaje

' Programa y fuente 100% libre para su uso con licencia "Reconocimiento 4.0 Internacional". Web: https://creativecommons.org/licenses/by/4.0/
' Muchos mas ejemplos en nuestra pagina buscanos en google como A.K.Freeman o AKF-GO
' Autor: A.K.Freeman

Public Class Frmprincipal

    'Evento al iniciar la aplicacion
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Try para evitar errores en la compilacion.
        Try
            'Asigna el fondo que va ha tener la ventana
            Me.BackgroundImage = New System.Drawing.Bitmap(Application.StartupPath & "\fondo.jpg")
            'Mensaje que aparecera al colocar el cursor sobre el boton
            Me.ToolTip1.SetToolTip(Btninternet, "Acceso a Internet")
            'Estilo de cuadro de mensaje que aparecera cuando se coloque el cursor sobre el boton
            Me.ToolTip1.IsBalloon = True
            'Mensaje que aparecera al colocar el cursor sobre el boton
            Me.ToolTip1.SetToolTip(Btnpagina, "Pagina Web")
            'Mensaje que aparecera al colocar el cursor sobre el boton
            Me.ToolTip1.SetToolTip(Btnaplicacion, "Aplicacion")
            'Mensaje que aparecera al colocar el cursor sobre el boton
            Me.ToolTip1.SetToolTip(Btnaccesibilidad, "Accesibilidad")
            'Asignando estilo normal al boton guardar
            Btnguardar.FlatStyle = FlatStyle.Standard
            'Asignando estilo pop up a la ventana mensaje
            Btnmensaje.FlatStyle = FlatStyle.Popup
            'Cambiando el tamaño de borde del boton ayuda
            Btnayuda.FlatAppearance.BorderSize = 3
            'Cambiando el tamaño de borde del boton mas
            Btnmas.FlatAppearance.BorderSize = 2
            'Se adigna el icono que tendra la ventana
            Me.Icon = New System.Drawing.Icon(Application.StartupPath & "\button_ok.ico")
            'Catch de haber algo malo en el codigo saltara el mensaje.
        Catch ex As Exception
            'Mensaje que aparecera al encontrar un error.
            MsgBox("Error codigo '#1'")
        End Try

    End Sub
End Class