Ashraf Ehab

تم الحل .left

تم حل المشكلة 
شكرا للجميع الحل كان في هذا الكود 
Private Sub UserForm_Initialize() With Me.ListBox1 .ColumnCount = 14 .RowSource = Empty Sheets("PURCHASES").Select .List = Range(Cells(1, 1), Cells(1, .ColumnCount)).Value .ColumnWidths = "100,100,100,150,100,100,100,100,150,100,100,100,100,100" End With End Sub ممكن ينفع حد وقع في نفس المشكلة وشكرا

تم الحل  بهذا الكود في زر البحث 
Private Sub CommandButton2_Click() Application.ScreenUpdating = False Me.ListBox1.ColumnWidths = "100,100,100" ListBox1.RowSource = Empty ListBox1.Clear Sheets("suppliers").Select For Each f In Range("a2:a" & Range("a10000").End(xlUp).Row) If f Like textbo1 & "*" Then listed = ListBox1.ListCount ListBox1.AddItem ListBox1.List(listed, 0) = f ListBox1.List(listed, 2) = f.Offset(0, 2) ListBox1.List(listed, 3) = f.Offset(0, 3) End If Next Dim x As Double For i = 0 To ListBox1.ListCount - 1 x = x + ListBox1.List(i, 3) Next i Me.Label9.Visible = True Me.TextBox8.Visible = True TextBox8.Value = x Dim v As Double For Z = 0 To ListBox1.ListCount - 1 v = v + ListBox1.List(Z, 2) Next Z Me.Label8.Visible = True Me.TextBox7.Visible = True TextBox7.Value = v Application.ScreenUpdating = True End Sub شكرا للجميع والله الموفق لي واياكم واذا  لم استفيد بمساعدة احد يكفيني ان ممكن احد يستفيد من  هذا الكود 
شكرا

وعليكم السلام ورحمه الله وبركاته 
اخي الكريم علي حد علمي هذه المشكلة لها ثلاث عوام الاول الرامات 
الثاني كارت الشاشة 
الاخير نسخة الويندوز 
حضرتك وضحت انك جربت تغير كارت الشاشة ومازالت المشكلة قائمة إذا هيا أما الرامات أو الويندوز والله اعلم اتمني التوفيق في حل هذه المشكلة