1 Private Sub lstShowRunning_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lstShowRunning.MouseDoubleClick
2 Try
3 If lstShowRunning.SelectedItems.Count > 0 Then
4 If lstShowRunning.SelectedItems(0).ToolTipText <> "" Then
5 Using frmMsg As New frmMessage(lstShowRunning.SelectedItems(0).ToolTipText)
6 frmMsg.ShowDialog()
7 End Using
8 End If
9
10 End If
11 Catch
12 Try
13 If lstShowRunning.SelectedItems.Count > 0 Then
14 MessageBox.Show(lstShowRunning.SelectedItems(0).ToolTipText)
15 End If
16 Catch
17 End Try
18 End Try
19 End Sub
20 End Class