Menambah Item Pada Klik Kanan pada vb6

Private Sub Form_Load()
 frmAdditemstorightclickmenuinWindows.Caption = Cap1
 cmdAction.Caption = Cap2  lblInfo.Caption = Cap6 End Sub
Private Sub SetKeyDataValue(RegKeyRoot As Long, RegKeyName As String,
RegOtherKeyName As String, KeyDataType As Long, KeyValueName As String,
KeyValueDate1 As Variant, KeyValueDate2 As Variant)        Dim
OpenKey As Long, SetValue As Long, hKey As Long