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 If11         Catch12             Try13                 If lstShowRunning.SelectedItems.Count > 0 Then14                     MessageBox.Show(lstShowRunning.SelectedItems(0).ToolTipText)15                 End If16             Catch17             End Try18         End Try19     End Sub20 End Class