I wanna say like, Put your form1 Borderstyle on None.
And then i am like, Is that blue bar a diff picture box or something.
Then you could add this things.
Quote:
Dim x, y As Integer
Dim newpoint As New Point
|
Add it under Public Class Form1 Like:
Public Class Form1
Dim x, y As Integer
Dim newpoint As New Point
__________________________________________________ ________________________________
Quote:
Private Sub Panel1_MouseMove(sender As Object, e As MouseEventArgs) Handles Panel1.MouseMove
If e.Button = Windows.Forms.MouseButtons.Left Then
newpoint = Control.MousePosition
newpoint.X -= x
newpoint.Y -= y
Me.Location = newpoint
Application.DoEvents()
End If
End Sub
|
Quote:
Private Sub Panel1_MouseDown(sender As Object, e As MouseEventArgs) Handles Panel1.MouseDown
x = Control.MousePosition.X - Me.Location.X
y = Control.MousePosition.Y - Me.Location.Y
|
For Picturebox you just need to change Panel1 into the picturebox1. :P
Not to forget, You must add a own close/minimize button/picturebox/label or whatever for it.
All you need to do to make it close then is write this things in C++
Quote:
To close
Quote:
|
WindowState = FormWindowState.Minimized
|
To minimize.
Its just to add a little bit of a design to it.. So it will look like this but you can still move it around.
[Only registered and activated users can see links. Click Here To Register...]
