Private realSize As Size _ Public Shared Function MoveWindow(ByVal hWnd As IntPtr, ByVal X As Integer, ByVal Y As Integer, ByVal Width As Integer, ByVal Height As Integer, ByVal Repaint As Boolean) As IntPtr End Function _ Public Shared Function GetWindowLong(ByVal hWnd As IntPtr, ByVal nItem As Integer) As Integer End Function _ Public Shared Sub SetWindowLong(ByVal hWnd As IntPtr, ByVal nItem As Integer, ByVal nValue As Integer) End Sub _ Public Shared Function GetCapture() As IntPtr End Function Public Const GWL_STYLE As Integer = -16 Public Const WS_CAPTION As Integer = &HC00000 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click realSize = New Size(224, 144) ResizeForm() End Sub Private Sub ResizeForm() Dim x, y As Integer x = (Screen.PrimaryScreen.WorkingArea.Width - realSize.Width) / 2 y = (Screen.PrimaryScreen.WorkingArea.Height - realSize.Height...