إلى المبرمجين سؤال آمل الجواب عليه عن أداة ole

إذا لم يكن هذا ما تريده فأعتقد انه يجب عليك توضيح سؤالك أكثر...

Private Declare Function SetParent Lib "user32" (ByVal _
hWndChild As Long, ByVal hWndNewParent As _
Long) As Long
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Dim lng_hWnd&
Private Sub Command1_Click()
 Shell "Calc.exe", 1
 Do Until lng_hWnd
  'الحصول على مقبض نافذة الحاسبة
  lng_hWnd = FindWindow(vbNullString, "آلة حاسبة")
  DoEvents
 Loop
 'وضع نافذة الحاسبة كنافذة ابن للنموذج
 SetParent lng_hWnd, hwnd
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, _
 UnloadMode As Integer)
 'اغلاق النافذة قبل الخروج للتغلب على بعض المشكلات التي قد تنتج
 SendMessage lng_hWnd, &H10, 0&, 0&
End Sub