#vb.net - Ejemplo Ventana en la Parte Inferior Derecha

' 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 hacer clic
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btncerrar.Click
        'Try para evitar errores en la compilacion.
        Try
            'Cerrar el formulario.
            Me.Close()
            '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

    'Evento al abrir la ventana
    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
            'Declaramos la variable.
            Dim r As Rectangle = My.Computer.Screen.WorkingArea
            'Se asigna la localizacion de la ventana.
            Location = New Point(r.Width - Width, r.Height - Height)
            'Trasparencia del formulario al 85%.
            Me.Opacity = 0.85
            'Se asigna el fondo de una ubicacion del archivo.
            Me.BackgroundImage = New System.Drawing.Bitmap(Application.StartupPath & "\fondo.png")
            'Se asigna el icono de la ventana.
            Me.Icon = New System.Drawing.Icon(Application.StartupPath & "\button_ok.ico")
            'Texto que apareceraa de titulo en la parte superior de la ventana.
            Me.Text = "Ejemplo Ventana 1"
            'Catch de haber algo mal en el codigo saltara el mensaje
        Catch ex As Exception
            'Mensaje que aparecera al encontrar un error.
            MsgBox("Error codigo '#2'")
        End Try
    End Sub



End Class