title: Resize MessageBox window which displays a custom font size?
body: <blockquote>
    <p>EDIT:</p>
  </blockquote>
  
  <p>I'm using this custom messagebox, the messagebox can receive a custom font, I'm looking for the way to be able to use big font sizes niside the default messagebox window by resizing the messagebox window.</p>
  
  <p>But following the @<strong>endofzero</strong> instructions I've found a problem when resizing the window it is not sufficient to solve the custom font size problem, if I use a big size font then the font will be displayed 'truncated', I mean cropped, even If I resize the messagebox window using a high resolution, no way, the text stills alligned to top-left and is displayed cropped like in a little box.</p>
  
  <p>So I imagine that I will need to resize also  the control who contains the text message inside the messagebox form, or something else that I totally miss, but this is possibly to resize? and how?</p>
  
  <p>( This custom messagebox is written by Hans Passant and modified a little by me: <a href="https://stackoverflow.com/questions/19204656/messagebox-with-custom-font/19283079?noredirect=1#comment28659091_19283079">MessageBox with custom font?</a> )</p>
  
  <pre><code>#Region " Centered MessageBox Class"
  
  Imports System.Drawing
  Imports System.Runtime.InteropServices
  Imports System.Text
  Imports System.Windows.Forms
  
  Class CenteredMessageBox : Implements IDisposable
  
      Private mTries As Integer = 0
      Private mOwner As Form
      Private mFont As Font
  
      ' P/Invoke declarations
      Private Const WM_SETFONT As Integer = &amp;H30
      Private Const WM_GETFONT As Integer = &amp;H31
  
      Private Delegate Function EnumThreadWndProc(hWnd As IntPtr, lp As IntPtr) As Boolean
  
      &lt;DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)&gt; _
      Private Shared Function EnumThreadWindows(tid As Integer, callback As EnumThreadWndProc, lp As IntPtr) As Boolean
      End Function
  
      &lt;DllImport("kernel32.dll", SetLastError:=True, CharSet:=CharSet.Auto)&gt; _
      Private Shared Function GetCurrentThreadId() As Integer
      End Function
  
      &lt;DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)&gt; _
      Private Shared Function GetClassName(hWnd As IntPtr, buffer As StringBuilder, buflen As Integer) As Integer
      End Function
  
      &lt;DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)&gt; _
      Private Shared Function GetDlgItem(hWnd As IntPtr, item As Integer) As IntPtr
      End Function
  
      &lt;DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)&gt; _
      Private Shared Function SendMessage(hWnd As IntPtr, msg As Integer, wp As IntPtr, lp As IntPtr) As IntPtr
      End Function
  
      &lt;DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)&gt; _
      Shared Function GetWindowRect(hWnd As IntPtr, ByRef rc As RECT) As Boolean
      End Function
  
      &lt;DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)&gt; _
      Shared Function MoveWindow(hWnd As IntPtr, x As Integer, y As Integer, w As Integer, h As Integer, repaint As Boolean) As Boolean
      End Function
  
      Structure RECT
          Public Left As Integer
          Public Top As Integer
          Public Right As Integer
          Public Bottom As Integer
      End Structure
  
      Public Sub New(owner As Form, Optional Custom_Font As Font = Nothing)
          mOwner = owner
          mFont = Custom_Font
          owner.BeginInvoke(New MethodInvoker(AddressOf findDialog))
      End Sub
  
      Private Sub findDialog()
  
          ' Enumerate windows to find the message box
          If mTries &lt; 0 Then
              Return
          End If
  
          Dim callback As New EnumThreadWndProc(AddressOf checkWindow)
  
          If EnumThreadWindows(GetCurrentThreadId(), callback, IntPtr.Zero) Then
              If System.Threading.Interlocked.Increment(mTries) &lt; 10 Then
                  mOwner.BeginInvoke(New MethodInvoker(AddressOf findDialog))
              End If
          End If
  
      End Sub
  
      Private Function checkWindow(hWnd As IntPtr, lp As IntPtr) As Boolean
  
          ' Checks if &lt;hWnd&gt; is a dialog
          Dim sb As New StringBuilder(260)
          GetClassName(hWnd, sb, sb.Capacity)
          If sb.ToString() &lt;&gt; "#32770" Then Return True
  
          ' Got it, get the STATIC control that displays the text
          Dim hText As IntPtr = GetDlgItem(hWnd, &amp;HFFFF)
  
          Dim frmRect As New Rectangle(mOwner.Location, mOwner.Size)
          Dim dlgRect As RECT
          GetWindowRect(hWnd, dlgRect)
          MoveWindow(hWnd, frmRect.Left + (frmRect.Width - dlgRect.Right + dlgRect.Left) \ 2, frmRect.Top + (frmRect.Height - dlgRect.Bottom + dlgRect.Top) \ 2, dlgRect.Right - dlgRect.Left, dlgRect.Bottom - dlgRect.Top, True)
          If hText &lt;&gt; IntPtr.Zero Then
  
              If mFont Is Nothing Then
                  ' Get the current font
                  mFont = Font.FromHfont(SendMessage(hText, WM_GETFONT, IntPtr.Zero, IntPtr.Zero))
              End If
  
              SendMessage(hText, WM_SETFONT, mFont.ToHfont(), New IntPtr(1))
  
          End If
  
          ' Done
          Return False
  
      End Function
  
      Public Sub Dispose() Implements IDisposable.Dispose
          mTries = -1
          mOwner = Nothing
          If mFont IsNot Nothing Then mFont.Dispose()
      End Sub
  
  End Class
  
  #End Region
  </code></pre>
  
  <p>Usage example:</p>
  
  <pre><code> Using New CenteredMessageBox(Me, New Font(New FontFamily("Lucida Console"), Font.SizeInPoints, FontStyle.Bold))
       MessageBox.Show("Test Text", "Test Title", MessageBoxButtons.OK, MessageBoxIcon.Information)
   End Using
  </code></pre>