Visual Basic

'  The "." mean the local computer.
strComputer = "."
 
'  We're going to stop the NetDDE service.
'  First, get the list of dependent services and stop them one by one.
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery("Associators of {Win32_Service.Name='NetDDE'} Where AssocClass=Win32_DependentService Role=Antecedent")
For each objService in colServiceList
	objService.StopService()
Next
 
'  We just told the dependent services to stop.  Now we'll wait about 20 seconds
'  before we tell the NetDDE service to stop.
Wscript.Sleep 20000
 
'  ...and, finally, stop the NetDDE service.
Set colServiceList = objWMIService.ExecQuery("Select * from Win32_Service where Name='NetDDE'")
For each objService in colServiceList
	errReturn = objService.StopService()
Next

Dim frmChild As Form

For Each frmChild In MdiChildren
    frmChild.Close()
Next

Option Explicit

' Declare function calls into the Win32 API.
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

' Define the constants used by SetWindowPos.
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOZORDER = &H4
Public Const SWP_NOREDRAW = &H8
Public Const SWP_NOACTIVATE = &H10
Public Const SWP_SHOWWINDOW = &H40
Public Const SWP_HIDEWINDOW = &H80


'
'  Make our window the topmost window on the screen.
'
Public Sub MakeTopMostWindow(frmForm As Form)
    With frmForm
        ' Tag our window as as TopMost and not to swap its position
        ' in the Z-Order with any other window
        SetWindowPos frmForm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_NOSIZE Or SWP_NOMOVE
    End With
End Sub