[fouadhdfouad]

كود :

اتضل التعديل

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 CheckBoxes_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 AndAlso Not lst.Contains(c.Text & " ") Then
       lst.Add(c.Text & " ")
   ElseIf c.Checked = False AndAlso lst.Contains(c.Text & " ") 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 Not txtchecked.Text.Contains(h) 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