Mouse Move caption
You have to put each control in your custom capton (ie Panel) into it so that you can move the form after you're done customizing how you want
#Region " Move Form "
' [ Move Form ]
'https://stackoverflow.com/questions/24449543/how-to-move-form-without-form-border-visual-studio
' // By Elektro
Public MoveForm As Boolean
Public MoveForm_MousePosition As Point
Public Sub MoveForm_MouseDown(sender As Object, e As MouseEventArgs) Handles _
MyBase.MouseDown, Panel1.MouseDown, Label12.MouseDown ', lblServers.MouseDown ', lblRDS.MouseDown, lblRDS.MouseDown, lblRemoteApp.MouseDown, Label19.MouseDown, Label22.MouseDown, Label21.MouseDown, Label23.MouseDown ' Add more handles here (Example: PictureBox1.MouseDown)
If e.Button = MouseButtons.Left Then
MoveForm = True
Me.Cursor = Cursors.NoMove2D
MoveForm_MousePosition = e.Location
End If
End Sub
Public Sub MoveForm_MouseMove(sender As Object, e As MouseEventArgs) Handles _
MyBase.MouseMove, Panel1.MouseMove, Label12.MouseMove ', lblServers.MouseMove, lblRDS.MouseMove, lblRDS.MouseMove, lblRemoteApp.MouseMove, Label19.MouseMove, Label22.MouseMove, Label21.MouseMove, Label23.MouseMove ' Add more handles here (Example: PictureBox1.MouseMove)
If MoveForm Then
Me.Location = Me.Location + (e.Location - MoveForm_MousePosition)
End If
End Sub
Public Sub MoveForm_MouseUp(sender As Object, e As MouseEventArgs) Handles _
MyBase.MouseUp, Panel1.MouseUp, Label12.MouseUp ', lblServers.MouseUp, lblRDS.MouseUp, lblRDS.MouseUp, lblRemoteApp.MouseUp, Label19.MouseUp, Label22.MouseUp, Label21.MouseUp, Label23.MouseUp ' Add more handles here (Example: PictureBox1.MouseUp)
If e.Button = MouseButtons.Left Then
MoveForm = False
Me.Cursor = Cursors.Default
End If
End Sub
#End Region
Private Sub picClose_Click(sender As Object, e As EventArgs) Handles picClose.Click
'Application.Exit()
Me.Close()
End Sub
Private Sub picClose_MouseEnter(sender As Object, e As EventArgs) Handles picClose.MouseEnter
picClose.Image = My.Resources.Close_Hover
End Sub
Private Sub picClose_MouseLeave(sender As Object, e As EventArgs) Handles picClose.MouseLeave
picClose.Image = My.Resources.Close
End Sub
Private Sub picMinimize_Click(sender As Object, e As EventArgs) Handles picMinimize.Click
Me.WindowState = FormWindowState.Minimized
End Sub
Private Sub picMinimize_MouseEnter(sender As Object, e As EventArgs) Handles picMinimize.MouseEnter
picMinimize.Image = My.Resources.Minimize_Hover
End Sub
Private Sub picMinimize_MouseLeave(sender As Object, e As EventArgs) Handles picMinimize.MouseLeave
picMinimize.Image = My.Resources.Minimize
End Sub
Dim lstrOutput As String = "<html><head><style>html, body {{cursor: hand; padding: 4pt; margin: 0 }}</style></head><body height=30px style='text-align:center;' ><span style='';'>Deficiences: " & funGetOMRRDeficiencies(strUsername) & "</span></body></html>"
Dim WithEvents doc As HtmlDocument
Private Sub doc_Click(ByVal sender As Object, ByVal e As System.Windows.Forms.HtmlElementEventArgs) Handles doc.Click
Debug.WriteLine(e.MousePosition)
Debug.WriteLine(e.ClientMousePosition)
pnlCST_Click(Nothing, Nothing)
End Sub