שלום.אם הבנתי אותך נכון, אתה רוצה למשל לגרור PictureBox לטופס ושהתמונה של הטופס תהפוך לזו של הPicture Box אז הפתרון הוא פשוט:
-את שתמונה אתה מגדיר כDrag Mode - Automatic.
-בקוד של הטופס:
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single) Me.Picture = Picture1.Picture End Sub
|
אם התכוונת למשהו אחר אז תגיד.
א.