Foro de elhacker.net

Ojala les sirva ^^
1_Abrimos visual studio 2008(es el q utilizo yo), creamos un nuevo proyecto de tipo
formulario windows bueno aki la interfaz:
(http://img541.imageshack.us/img541/1614/64177759.jpg)

2_AKI el
 

Public Class Form1
 
    Private mouseOffset As Point
    Private isMouseDown As Boolean = False
 
 Button1_Click(boton)
        Me.Close()
   'cierra el formulario
    End Sub
 
 Evento MouseDown
 
        Dim xOffset As Integer
        Dim yOffset As Integer
        If e.Button = MouseButtons.Left Then
            xOffset = -e.X - SystemInformation.FrameBorderSize.Width
            yOffset = -e.Y - SystemInformation.CaptionHeight - _
                    SystemInformation.FrameBorderSize.Height
            mouseOffset = New Point(xOffset, yOffset)
            isMouseDown = True
        End If
    End Sub
 
Evento MouseMove
 
        If isMouseDown Then
            Dim mousePos As Point = Control.MousePosition
            mousePos.Offset(mouseOffset.X, mouseOffset.Y)
            Location = mousePos
        End If
    End Sub
 
Evento  MouseUp del formulario
        If e.Button = MouseButtons.Left Then
            isMouseDown = False
        End If
    End Sub
 
    Protected Overrides Sub OnPaint( _
       ByVal e As System.Windows.Forms.PaintEventArgs)
        Dim shape As New System.Drawing.Drawing2D.GraphicsPath
        shape.AddEllipse(0, 0, Me.Width, Me.Height)
        Me.Region = New System.Drawing.Region(shape)
    End Sub
 
 
End Class
 

bUENO asi +o - kedaria al ejecutarlo:
(http://img812.imageshack.us/img812/7214/43791164.jpg)

FaciLiT0
 ;-)

mmm creo que te equivocaste, esto es Visual Basic...

Esto se se claramente que es VB.Net, por que dicen que es VB6?

Ha sido movido :P