كود جعل الtab control من اليمين

بسم الله الرحمن الرحيم

هذا الكود من قسم الفيجوال بيسك وهو يعمل جيدا في الفيجوال ولكن يعطى خطا في الاكسس هل يمكن تصحيحه ليعمل في الاكسس

GHOST2010 كتب:

السلام عليكم ورحمة الله وبركاته

Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Const WS_EX_LAYOUTRTL = &H400000
Private Const GWL_EXSTYLE = (-20)

Public Sub SetRtoL(Ctl As Control)
Ctl.Visible = False
SetWindowLong Ctl.hwnd, GWL_EXSTYLE, GetWindowLong(Ctl.hwnd, GWL_EXSTYLE) Or WS_EX_LAYOUTRTL
Ctl.Visible = True
End Sub

Private Sub Form_Load()
SetRtoL TabStrip1
End Sub

←