FixedToolWindows

Dim pt As Point
    Dim MoveForm As Boolean
 
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        pt = New Point(e.X, e.Y)
        MoveForm = True
    End Sub
 
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If MoveForm = True Then
            Location = New Point(Location.X + e.X - pt.X, Location.Y + e.Y - pt.Y)
        End If
    End Sub
 
    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        MoveForm = False
    End Sub

Me.WindowState = FormWindowState.Minimized

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.BackgroundImage = Image.FromFile("C:\1.png")
        Me.BackColor = Color.Brown
        Me.TransparencyKey = Color.Brown
    End Sub

Dim gp As New GraphicsPath()
gp.AddEllipse(Me.ClientRectangle)
Me.Region = New System.Drawing.Region(gp)
gp.Dispose()