إطارات رومانسية بشكل مبتكر للبرامج والتطبيقات

Public Class Form1

Private mPrevPos As New Point

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Me.ControlBox = False

Me.MaximizeBox = False

Me.MinimizeBox = False

Me.Text = ""

Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None

TransparencyKey = Color.White

Me.BackColor = Color.White

Frame_PictureBox.BackColor = Color.White

Controls_Form.Show()

Me.Opacity = 0.5

End Sub

Private Sub Frame_PictureBox_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Frame_PictureBox.MouseMove

Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)

If (e.Button = MouseButtons.Left) Then

Me.Location += delta

Controls_Form.Location += delta

mPrevPos = e.Location - delta

Else

mPrevPos = e.Location

End If

End Sub

End Class