ปัญหาของ code delete บน userform vba

[PLM]

สวัสดีครับ ผมมีข้อสงสัย เกี่ยวกับ code สำหรับ delete ที่ใช้ บน userform vba คือ ผม ออกแบบ ปุ๋ม delete เพื่อที่จะลบ file ออก จาก listbox โดยที่ เลือก file ไหน ก็ลบ file นั้น แต่ปรากฎว่า code ที่เขียนเอง ลบหมด ทุก file เลยคับ รบกวน อาจาร์ย ช่วย แนะนะด้วยครับ code ของผม ตาม ด้านล่างคับ พร้อมทั้ง แนบ file มาด้วยคับ

Private Sub Delete_Click()
Dim I As Long
If Selected(I) Then
Selection.Delete
End If

Unload DS
DS.Show

End Sub

[snasui]

กรุณาโพสต์ Code ให้แสดงเป็นข้อความ Code ตามตัวอย่างในกฎการใช้บอร์ดข้อ 5 ด้านบน เพื่อจะได้แตกต่างกับข้อความทั่วไปครับ

ตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

Private Sub Delete_Click()
    With Me.LB1
        .RemoveItem (.ListIndex)
    End With
End Sub

[PLM]

อย่างแรกต้องขอโทษด้วยนะครับ อาจาร์ย ผมเป็นสมัครใหม่ ครั้งหน้าจะปฎิบัติตามเงื่อนไข ของ กลุุ่มนะครับ
อย่างที่สอง ขอบคุณครับ อาจาร์ย ที่ แนะนำ
ขอบคุณครับ