[سعود]

الكود رغم بساطته اتعبني معه كل شوي اكتشف غلط او قصور!
آخر كلام :

كود :

Public Class Form1
   Dim ax, ay As Integer, dr As Boolean
   Dim sr As Integer = Screen.PrimaryScreen.Bounds.Right
   Dim sb As Integer = Screen.PrimaryScreen.WorkingArea.Bottom
   Dim lst As New List(Of String)
   Private Sub rep(f As Form)
       If f.Left < 0 Then f.Left = 0
       If f.Top < 0 Then f.Top = 0
       If f.Right >= sr Then f.Left = sr - f.Width
       If f.Bottom >= sb Then f.Top = sb - f.Height
   End Sub
   Private Sub Form1_MouseUp(sender As Object, e As MouseEventArgs) Handles MyBase.MouseUp, Label1.MouseUp
       dr = False
       rep(Me)
   End Sub
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       rep(Me)
   End Sub
   Private Sub btnclose_Click(sender As Object, e As EventArgs) Handles btnclose.Click
       Close()
   End Sub
   Private Sub btnmin_Click(sender As Object, e As EventArgs) Handles btnmin.Click
       WindowState = FormWindowState.Minimized
   End Sub
   Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox6.CheckedChanged, CheckBox5.CheckedChanged, CheckBox4.CheckedChanged, CheckBox3.CheckedChanged, CheckBox2.CheckedChanged, CheckBox1.CheckedChanged
       Dim c As CheckBox = DirectCast(sender, CheckBox)
       If (c.Checked = True And lst.Contains(c.Text & " ") = False) Then
           lst.Add(c.Text & " ")
       ElseIf (c.Checked = False And lst.Contains(c.Text & " ") = True) Then
           lst.Remove(c.Text & " ")
       End If
       lbl.Text = "Controls Count: " & pnlc.Controls.Count & " | " & lst.Count
       txtchecked.Clear()
       For Each h As String In lst
           If txtchecked.Text.Contains(h) = False Then
               txtchecked.AppendText(h)
           End If
       Next
   End Sub
   Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles MyBase.MouseMove, Label1.MouseMove
       If dr Then
           Left = MousePosition.X - ax
           Top = MousePosition.Y - ay
       End If
   End Sub
   Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown, Label1.MouseDown
       If e.Button = MouseButtons.Left Then
           dr = True
           ax = MousePosition.X - Left
           ay = MousePosition.Y - Top
       End If
   End Sub
End Class