Public Class Form1
    Declare Function SetWindowPos Lib "user32.dll" (ByVal hwnd As IntPtr, ByVal _
      hWndInsertAfter As Int32, _
           ByVal x As Int32, ByVal y As Int32, ByVal cx As Int32, ByVal cy As _
           Int32, ByVal wFlags As Int32) As Int32
    Const SWP_NOMOVE As Int32 = &H2
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        SetWindowPos(MonthCalendar1.Handle, 0, 0, 0, MonthCalendar1.Width, 30, _
        SWP_NOMOVE)
    End Sub
End Class