انتقال کپشن فرم به وسط تایتل بار فرم

[mazoolagh]

Structures

Option Compare Database

Option Explicit



Public Type LOGFONT

    lfHeight As Long

    lfWidth As Long

    lfEscapement As Long

    lfOrientation As Long

    lfWeight As Long

    lfItalic As Byte

    lfUnderline As Byte

    lfStrikeOut As Byte

    lfCharSet As Byte

    lfOutPrecision As Byte

    lfClipPrecision As Byte

    lfQuality As Byte

    lfPitchAndFamily As Byte

    lfFaceName(1 To 32) As Byte

End Type



Public Type NONCLIENTMETRICS

    cbSize As Long

    iBorderWidth As Long

    iScrollWidth As Long

    iScrollHeight As Long

    iCaptionWidth As Long

    iCaptionHeight As Long

    lfCaptionFont As LOGFONT

    iSmCaptionWidth As Long

    iSmCaptionHeight As Long

    lfSmCaptionFont As LOGFONT

    iMenuWidth As Long

    iMenuHeight As Long

    lfMenuFont As LOGFONT

    lfStatusFont As LOGFONT

    lfMessageFont As LOGFONT

End Type



Public Type TextSize

    Width As Long

    Height As Long

    WidthCM As Single

    HeightCM As Single

End Type