[amgad525]

PHP كود :

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
    Try
        Dim s As String = Me.ListBox1.SelectedValue
        'If s.Trim <> "" AndAlso s.Trim.StartsWith("http://") Then s = "http://" & s
        If s <> "" Then Process.Start(s)
    Catch ex As Exception
    End Try
End Sub