比如我做一个记事本名字为“记事本B”，在任意一个txt格式文件右键，菜单上会显示“用记事本B打开”；
而且可以筛选文件格式，打开时默认用我的程序。

谢谢！
我找到这段代码，能加在Windows右键菜单上，但不是我想要的
比如Windows上一个文件“123.txt”，我右键只能打开记事本B这个程序（记事本B指我做的程序），但在记事本B中不能打开“123.txt”这个文件。
还有我想知道如何将电脑上某些格式默认打开程序设为我的程序，比如双击电脑上任一“.jpg”“.png”格式或其他格式默认用我的程序打开。
我没学过注册表，所以才想来问一下。谢谢！
下面是我找到的代码。

'' 关闭打开的键
Private Declare Function RegCloseKey Lib "advapi32.dll" _
                          (ByVal hKey As Long) As Long
'建立键
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" _
                          (ByVal hKey As Long, _
                          ByVal lpSubKey As String, _
                          phkResult As Long) As Long
'写入启动值
Private Declare Function RegSetValueEx Lib "advapi32" Alias "RegSetValueExA" ( _
                          ByVal hKey As Long, ByVal lpValueName As String, _
                          ByVal Reserved As Long, ByVal dwType As Long, _
                          ByVal lpData As String, ByVal cbData As Long) As Long
'删除项目
Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
'打开注册表subkey的hkey
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" ( _
                          ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Const HKEY_CLASSES_ROOT = &H80000000
Private Const REG_SZ = 1

'删除注册表键函数
Function DeleteKey(RootKey As Long, ParentKeyName As String, SubKeyName As String)
    Dim hKey As Long
    RegOpenKey RootKey, ParentKeyName, hKey
    RegDeleteKey hKey, SubKeyName
    RegCloseKey hKey
End Function

Private Sub Command1_Click()
    '把应用程序加入右键菜单
    Dim hKey As Long, ret As Long
    '建立注册表项
    RegCreateKey HKEY_CLASSES_ROOT, "*\shell\我的记事本\command", hKey  'Any To Icon为右键菜单显示的名称
    '设置右键菜单项目
    ret = RegSetValueEx(hKey, "", 0, REG_SZ, ByVal App.Path & "\" & App.EXEName & ".exe", ByVal LenB(StrConv(App.Path & "\" & App.EXEName & ".exe", vbFromUnicode)) + 1)
    If ret = 0 Then
        MsgBox "右键菜单写入成功"
    Else
        MsgBox "右键菜单写入失败"
    End If
    RegCloseKey hKey '关闭注册表项
End Sub

Private Sub Command2_Click()
    '这里必须分步执行，如同删除文件夹一样，不能删除非空的文件夹，此处重要。
    DeleteKey HKEY_CLASSES_ROOT, "*\shell\我的记事本", "command"
    DeleteKey HKEY_CLASSES_ROOT, "*\shell", "我的记事本"
    MsgBox "成功删除右键菜单项", , "提示"
End Sub

是的，请问怎么解决？

谢谢，但我不懂注册表，有相关的函数吗？