Ассоциировать расширение со своим приложением - Visual Basic .NET

Формулировка задачи:

я хочу создать программу как блокнот. Но все дела в том что если я открываю .txt формат то открывается блокнот. Я тоже хочу создать программу чтоб открывала свои расширение(например: eсли я открываю *.text файл то тогда этот текстовой файл открывалось на моем программе )

Решение задачи: «Ассоциировать расширение со своим приложением»

textual
                            Листинг программы 
                        

                            Imports System.Reflection
Imports Microsoft.Win32
 
Public Class MainForm
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim dir = Registry.ClassesRoot.CreateSubKey(".ab\shell\open\command")
        Dim value = """" & Assembly.GetExecutingAssembly().Location & """ ""%1"""
        dir.SetValue(Nothing, value)
    End Sub
End Class
                        