[elgokr]

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

تفضل استخدم الكود بهذا الشكل

كود :

Option Explicit
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Const WS_EX_LAYOUTRTL = &H400000
Private Const GWL_EXSTYLE = (-20)

Private Sub SetRtL(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()
Me.ListView1.View = lvwReport
   
Me.ListView1.ColumnHeaders.Clear
Me.ListView1.ColumnHeaders.Add , , "العنوان", ListView1.Width / 2
Me.ListView1.ColumnHeaders.Add , , "التفاصيل", ListView1.Width / 2

With Me.ListView1.ListItems
   .Add , , "تجريبي 1"
   .Add , , "تجريبي 2"
End With

Me.ListView1.ListItems(1).SubItems(1) = "نص نص نص نص نص نص"
Me.ListView1.ListItems(2).SubItems(1) = "نص نص نص نص نص نص"

SetRtL ListView1
End Sub
Option Explicit
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Const WS_EX_LAYOUTRTL = &H400000
Private Const GWL_EXSTYLE = (-20)

Private Sub SetRtL(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()
Me.ListView1.View = lvwReport
   
Me.ListView1.ColumnHeaders.Clear
Me.ListView1.ColumnHeaders.Add , , "العنوان", ListView1.Width / 2
Me.ListView1.ColumnHeaders.Add , , "التفاصيل", ListView1.Width / 2

With Me.ListView1.ListItems
   .Add , , "تجريبي 1"
   .Add , , "تجريبي 2"
End With

Me.ListView1.ListItems(1).SubItems(1) = "نص نص نص نص نص نص"
Me.ListView1.ListItems(2).SubItems(1) = "نص نص نص نص نص نص"

SetRtL ListView1
End Sub

تحياتى لك

وتمنياتى لك التوفيق