Código
Public Class Form1 Dim MOVIENDO As Boolean = False Dim IMAGEN As Image Dim MIX As Integer Dim MIY As Integer Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load IMAGEN = Me.BackgroundImage PINTA() 'COMENTARIOS EN EL PROCEDIMIENTO End Sub Public Sub PINTA() Me.Opacity = 0 'FORM TRANSPARENTE Threading.Thread.Sleep(100) 'PARA ASEGURAR QUE SEA TRANSPARENTE 'CREA UNA IMAGEN DE LO QUE HAY DEBAJO DEL FORM COMO FONDO Dim BMP As Bitmap = New Bitmap(IMAGEN.Width, IMAGEN.Height) Dim DIBUJO As Graphics = Graphics.FromImage(BMP) DIBUJO.CopyFromScreen(Me.Location.X, Me.Location.Y, 0, 0, Screen.PrimaryScreen.Bounds.Size) 'AÑADE NUESTRA IMAGEN AL FONDO DIBUJO.DrawImage(IMAGEN, 0, 0, BMP.Width, BMP.Height) Me.BackgroundImage = BMP 'PONE EL MONTAJE COMO IMAGEN DEL FORM Me.Opacity = 1 'DEVUELVE LA OPACIDAD NORMAL. End Sub Private Sub LabelMOVER_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) 'MEMORIZA LA POSICION DE LA ETIQUETA MIX = MousePosition.X - Me.Location.X MIY = MousePosition.Y - Me.Location.Y Me.BackgroundImage = IMAGEN 'ELIMINA EL FONDO DE LA IMAGEN Me.Opacity = 0.1 'PARA QUE SE VEA MENOS EL RECTANGULO DEL FORM MOVIENDO = True 'INICIA EL MOVIMIENTO End Sub
Saludos