Consulta el código fuente de VB para conocer el significado de cada variable
Private Sub cmdadd_Click() 'Evento de clic del mouse, muchos controles tienen este evento
rtmenu = rtmenu + 1 'Cámbialo Se trata como tipo entero y se incrementa en 1 (el valor predeterminado es un número entero)
Si rtmenu = 1 Entonces mnuoption(0).Caption = "Opción de tiempo de ejecución" 'Determina si rtmenu es igual a 1, si es igual a 1, luego mnuoption( 0) Cambie la propiedad Caption del control a "Opción de tiempo de ejecución"
Cargue mnuoption( rtmenu) 'mnuoption es una matriz de control, su subíndice comienza desde 0. Esta línea de código cargará un nuevo mnuoption en el formulario (1), entonces el formulario tendrá dos controles de mnuoption (mnuoption(0) y mnuoption(1))
mnuoption(rtmenu).Caption = "option #" &rtmenu 'Entonces asígnele un valor para "Opción #"
End Sub
Private Sub cmdremove_Click() 'Esto es lo mismo que la operación anterior
Si rtmenu = 0 Luego 'Determinar ifrtmenu es igual a 0
MsgBox "el menú está vacío" 'Cuadro de diálogo emergente
Salir Sub 'Finalizar proceso
Finalizar si
Descargar mnuoption(rtmenu) 'Lo anterior se está cargando, aquí se está descargando
rtmenu = rtmenu - 1 'Disminuir en 1
End Sub
Sub privado Form_MouseUp (botón como entero, cambio como entero, p>