「LargeChange」プロパティというのがあって、
マウスのクリックや、PAGE UP　および　PAGE DOWN キーを押したときにスライダが移動するポジション数を指定できるのだが、0にしたら移動するかも！？なんて期待を持ちながら設定してみたけどスライダがまったく動かず・・・当たり前か＞＜
クリックした場所に必ず目盛りがあるわけではないし、Trackbar標準機能ではできないのかなぁ。

仕方なく、無理やり実装してみた。
方法は、LargeChangeを0にしてマウスイベントを制御してスライダの位置を設定。
PAGE UPやPAGE DOWNキーで移動しなくなるけどこれらのキーを使う人はほとんどいないでしょう！？ということで。

Private scrollflg As Boolean

Private Sub TrackBar1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TrackBar1.MouseDown
　　scrollflg = False
End Sub

Private Sub TrackBar1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TrackBar1.MouseUp
　　Dim seekWidth As Double
　　Dim seekValue As Integer
　　Dim ticWidth As Double

　　‘左クリック以外は移動しない
　　If e.Button <> Windows.Forms.MouseButtons.Left Then
　　　　Exit Sub
　　End If

　　‘スクロール移動した場合は移動しない
　　If scrollflg = True Then
　　　　Exit Sub
　　End If

　　‘TrackBar範囲以外の場合は移動しない
　　If e.X < 0 OrElse e.X > TrackBar1.Width OrElse e.Y < 0 OrElse e.Y > TrackBar1.Height Then
　　　　Exit Sub
　　End If

　　If e.X < 8 Then
　　　　TrackBar1.Value = TrackBar1.Minimum
　　ElseIf e.X > TrackBar1.Width – 8 Then
　　　　TrackBar1.Value = TrackBar1.Maximum
　　Else
　　　　seekWidth = TrackBar1.Width – 16
　　　　ticWidth = seekWidth / (TrackBar1.Maximum – TrackBar1.Minimum)
　　　　seekValue = CInt((e.X – ８) / ticWidth) + TrackBar1.Minimum
　　　　TrackBar1.Value = seekValue
　　End If

End Sub

Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
　　scrollflg = True
End Sub

8を引いたりしてるのはTrackBarコントロールの端から8pxのところに目盛り位置があるから（両端合わせて16）
一応それっぽい動きはしているけど、もっと良い方法があったらご教授願いますm(..)m

Private Sub ExecJacascript()
　　 ‘引数がある場合は設定
　　Dim args(0) As Object
　　args(0) = “こんにちわ”

　　 ‘jacascriptの関数名を指定して呼び出し
　　Me.WebBrowser1.Document.InvokeScript(“helloword”, args)

End Sub

これらのデジタルビデオカメラは、AVCHDの規格で記録されています。
AVCHDでは、映像には高効率符号化が可能なH.264/MPEG-4 AVC方式を採用、音声にはドルビーデジタル (AC-3) 方式（LPCM：オプション）を採用、多重化にMPEG2-TSを採用しています。

GPSの情報は動画部分に埋め込まれており、H.264のtagを解析することで取得できます。

TAGの情報は以下のサイトを参考にしてください

H264 Tags

MDPMタグ(16進で 4D 44 50 4D）を検索して、そこから順番に、日時（DateTimeOriginal）や緯度（GPSLatitude）経度（GPSLongitude）などを取得できます。

exiftoolに
開始位置のGPS情報を取得できるツールがあり、そのツールのソース(Perl）を公開しているので、参考になると思います。

とりあえず、ゴリゴリと解析ソースを作成して試したところ、正しく取得できました。
取得したGPSデータをGoogleマップなどで軌跡表示したら面白いかも＾＾

【VB.NET】インストール済みアプリケーションの一覧を作成する

を参考にさせていただきました。

Private Sub getInstallList()
　　Dim wkRegKey As Microsoft.Win32.RegistryKey
　　Dim wkKeyName As String
　　Dim strKeyNames() As String
　　Dim strKeyName As String
　　Dim rKey As Microsoft.Win32.RegistryKey
　　Dim displayName As String
　　Dim unInstaller As String
　　Dim wkSoftwareInfo As SoftwareInfo

　　wkKeyName = “SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall”
　　wkRegKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(wkKeyName, False)

　　strKeyNames = wkRegKey.GetSubKeyNames()

　　For Each strKeyName In strKeyNames
　　　　rKey=wkRegKey.OpenSubKey(strKeyName)
　　　　‘インストールソフトウェア名取得
　　　　If Not rKey.GetVakue(“DisplayName”) is Nothing Then
　　　　　　displayName = rKey.GetValue(“DisplayName”).Tostring()

　　　　　　‘アンインストール実行ファイル取得
　　　　　　If Not rKey.GetVakue(“UninstallString”) is Nothing Then
　　　　　　　　unInstaller = rKey.GetVakue(“UninstallString”)
　　　　　　End If
　　　　End If
　　Next
End Sub

指定ソフトウェアがインストール済みかどうかの判断は、
DisplayNameと指定ソフトウェアの名称が一致するかで判断しました。