هل يمكن ان نجعل للفورم ظلا

لا يمكن ذلك من خلال الخصائص ولكن يمكن إضافة form جديدة وجعلها كأنها ظل للأولي

Dim cx As Double
Dim cy As Double

'write this code in Form_load
Private Sub Form_Load()
    
    Form2.Show
    Form2.Width = Me.Width
    Form2.Height = Me.Height
    Form2.Move Me.Left + (200), Me.Left + (200)

End Sub

'write this code in the Form_MouseDown
Private Sub Form_MouseDown(button As Integer, Shift As Integer, X As Single, Y As Single)
    
    cx = X
    cy = Y

End Sub

'write this code in Form_MouseMove
Private Sub Form_MouseMove(button As Integer, Shift As Integer, X As Single, Y As Single)

     If button = 1 Then
    Me.Move Me.Left + (X - cx), Me.Top + (Y - cy)
    Form2.Move Me.Left + (100), Me.Top + (100)
     Else
    Exit Sub
     End If

End Sub

مع مراعاة عدم سحب الفورم من شريط العنوان ، وجعل form2 بدون شريط عنوان.

احسنت وفقك الله

مشكور

السلام عليكم

هناك خطأ بالكود

Form2.Move Me.Left + (200), Me.Left + (200)

يجب ان تكون

Form2.Move Me.Left + (200), Me.top+ (200)

وكذلك سيكون من الافضل جعل فورم 2 باللون الأسود

و اضافة امر form1.show 1

وذلك لمنع المستخدم من الوصول لفورم 2

مع اضافة تايمر و اضافة الكود لها لجعل الظل يتبع الفورم دائما مع جعل ال interval للتايمر صغير مثلا 100

Dim cx As Double
Dim cy As Double

'write this code in Form_load
Private Sub Form_Load()
   
   Form2.Show
   Form2.BackColor = vbBlack
   Form1.Show 1
   Form2.Move Form1.Left + (50), Form1.Top + (50)
   Form2.Width = Me.Width
   Form2.Height = Me.Height
   
   
End Sub

'write this code in the Form_MouseDown
Private Sub Form_MouseDown(button As Integer, Shift As Integer, X As Single, Y As Single)
   
   cx = X
   cy = Y

End Sub

'write this code in Form_MouseMove
Private Sub Form_MouseMove(button As Integer, Shift As Integer, X As Single, Y As Single)

    If button = 1 Then
   Me.Move Me.Left + (X - cx), Me.Top + (Y - cy)
   Form2.Move Me.Left + (100), Me.Top + (100)
    Else
   Exit Sub
    End If

End Sub

Private Sub Timer1_Timer()
Form2.Move Me.Left + (50), Me.Top + (50)
   Form2.Width = Me.Width
   Form2.Height = Me.Height
End Sub