Guest User

Untitled

a guest
Feb 18th, 2018
76
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.10 KB | None | 0 0
  1. Imports System.Runtime.InteropServices
  2.  
  3. Module Window
  4.  
  5. <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> Public Function FindWindowEx(ByVal parentHandle As IntPtr, ByVal childAfter As IntPtr, ByVal lclassName As String, ByVal windowTitle As String) As IntPtr
  6. End Function
  7.  
  8. <DllImport("user32.dll")> Public Function SetParent(ByVal hWndChild As Integer, ByVal hWndNewParent As Integer) As Integer
  9. End Function
  10.  
  11. <DllImport("user32.dll")> Public Function SetWindowLong(ByVal hwnd As Integer, ByVal nIndex As Integer, ByVal dwNewinteger As Integer) As Integer
  12. End Function
  13.  
  14. <DllImport("user32.dll")> Public Function MoveWindow(ByVal hWnd As IntPtr, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal bRepaint As Boolean) As Boolean
  15. End Function
  16.  
  17. <DllImport("user32.dll")> Public Function ShowWindow(ByVal hWnd As Integer, ByVal nCmdShow As Integer) As Integer
  18. End Function
  19.  
  20. Public Const GWL_STYLE = (-16)
  21. Public Const WS_CHILD = &H40000000
  22. Public Const WS_VISIBLE = &H10000000
  23.  
  24. End Module
Add Comment
Please, Sign In to add comment