کار با گرافیک و لایه Transparent

[mehrnoosh_al62]

سلام دوستان
من تو برنامم دو تا PictureBox دارم:BackPic و SeccondPic که PictureBox دوم به صورت Transparent روی اولی قرار میگیره:


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SeccondPic.BackColor = Color.Transparent
SeccondPic.SizeMode = PictureBoxSizeMode.StretchImage
BackPic.Controls.Add(SeccondPic)
End Sub
و با کد زیر PictureBox دوم رو حرکت میدم:

Private Sub SeccondPic_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles SeccondPic.MouseDown
Offset = New Point(-e.X, -e.Y)
End Sub


Private Sub SeccondPic_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles SeccondPic.MouseMove
If e.Button = Windows.Forms.MouseButtons.Left Then
Dim Pos As Point = Me.PointToClient(MousePosition)
Pos.Offset(Offset.X, Offset.Y)
SeccondPic.Location = Pos
End If
End Sub

حالا مشکل اینجاست که موقع حرکت PictureBox دوم در لایه Transparent یه لرزشی ایجاد میشه که میخوام این لرزش رو حذف کنم...

ممنون میشم راهنماییم کنید:خجالت:

[pouyansaraf]

با سلام آیا شما مشکل لرزش را حل کردید؟