[سامي محمد]

وهذه طريقة أخرى

كود :

Imports System.Text.RegularExpressions

كود :

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        For x As Integer = 0 To ListBox1.Items.Count - 1
            ListBox1.Items(x) = Regex.Match(ListBox1.Items(x), ".+(:.+)").Groups(1).Value
        Next
    End Sub