Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal _ lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _ hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _ lParam As Any) As LongConst WM_CLOSE = &H10' close a MS-DOS window'' if Caption is omitted, it randomly closes one' of the opened Dos windowsSub CloseDosWindow(Optional Caption As Variant) Dim hWnd As Long ' if argument is omitted, don't care for window caption If IsMissing(Caption) Then Caption = vbNullString ' find the window hWnd = FindWindow("ConsoleWindowClass", Caption) ' close it by sending it a WM_CLOSE message If hWnd Then SendMessage hWnd, WM_CLOSE, 0, ByVal 0 End IfEnd Sub


Different Types of Data Models Explained with Examples
In the modern world, data is everything and everywhere. With so much access to technology, data has become a valuable resource for any business. Albeit a complex one. Data is