كود لجعل Tab Control من اليمين

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

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

لو بحثت عن هذا الكود فى المنتدى فستجد.............. :wacko: :wacko:

الكود مجرب ويعمل جيداً :rolleyes:

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

بارك الله فيك اخي الكريم وزادك علما

هل يمكن ان تلاحظ المرفق

asd.zip