Private Function GetFlashPlayerVersion() As System.Nullable(Of Integer)
Using rk As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Macromedia\FlashPlayer")
If rk IsNot Nothing Then
Dim version As String = TryCast(rk.GetValue("CurrentVersion"), String)
If String.IsNullOrEmpty(version) = False Then
Dim idx As Integer = version.IndexOf(",")
If idx > 0 Then
Dim value As Integer
If Integer.TryParse(version.Substring(0, idx), value) = True Then
Return value
End If
End If
End If
End If
End Using
Return Nothing
End Function