Private Sub btnView_Click(sender As Object, e As EventArgs) Handles btnView.Click
Dim openfolder As String = "R:\MRD\image\"
If Me.myListView.SelectedItems.Count > 0 Then
Dim selPath As String = Me.myListView.SelectedItems(0).SubItems(7).Text
System.Diagnostics.Process.Start(openfolder + selPath)
End If