Imports Infragistics.Win
Imports Infragistics.Win.UltraWinListView
Private Sub ultraListView1_ItemDoubleClick(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinListView.ItemDoubleClickEventArgs) Handles ultraListView1.ItemDoubleClick
If e.Item.Tag.GetType() Is GetType(System.IO.FileInfo) Then
Dim fileInfo As FileInfo = CType(e.Item.Tag, System.IO.FileInfo)
If Not fileInfo Is Nothing AndAlso fileInfo.Extension.ToLower() = ".txt" Then
Dim psi As ProcessStartInfo = New ProcessStartInfo("notepad.exe", fileInfo.FullName)
Process.Start(psi)
End If
End If
End Sub