راست چين كردن نام فرم در اكسس 2007

[pmoshir]

دوستان جستجو كردم اما نتيجه نگرفتم اين نام فرمها رو تو اكسس 2007 چطور راست چين كنم؟

[pmoshir]

دوستان لطفا راهنمايي كنيد.

[pmoshir]

دوستان يك نمونه ماژول در همين سايت پيدا كردم ولي در هنگام اجرا فرم به حالتهاي عادي در نمي آيد و نياز به اصلاح داره لطفا كمك كنيد.
ماژول:

Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As Long, ByVal bErase As Long) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Public Const GW_CHILD = 5
Public Const WS_EX_LAYOUTRTL = &HE7E9ED
Public Const GWL_EXSTYLE = (-20)
كد فرم:

Dim OldLong As Long

OldLong = GetWindowLong(Me.hwnd, GWL_EXSTYLE)
SetWindowLong Me.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL
InvalidateRect hwnd, 0, False

[pmoshir]

فكر نمي كنم تاپيك بي ارزشي باشه كه هيچ پاسخي دريافت نميشه.از مديران تالار تقاضاي همكاري دارم