Option Explicit

Dim WithEvents Shape1 As Shape

Private Sub Form_Load()
    'Crea un nuevo Shape en tiempo de ejecución...
    
    'Agregando el control
    Set Shape1 = Form1.Controls.Add("VB.Shape", "Shape1")
     
    Shape1.Visible = True
    
    'ancho del borde del shape
    Shape1.BorderWidth = 5
          
    'color del borde
    Shape1.BorderColor = &HC0FFC0

    'Posiciona el Shape en la ubicación del TextBox
    Shape1.Move 1440, 1200, 1215, 855
    
    'Forma del shape
    Shape1.Shape = 3 'Circulo
End Sub

Private Sub CmdGenerar_Click()
Dim I As Integer
    Text1.Text = "" 'Limpiamos el TextBox
    For I = 0 To 8 'Recorriendo el ciclo 9 veces
        Text1.Text = Text1.Text & Int(Rnd * 10) 'Generamos un digito aleatorio
    Next
End Sub

Private Sub Form_Load()
    MsgBox App.Path
End Sub

Private Sub Form_Load()
    If Len(Command) <> 0 Then
        Select Case Command
            Case "verde": Me.BackColor = vbGreen
            Case "rojo": Me.BackColor = vbRed
            Case "amarillo": Me.BackColor = vbYellow
            Case "azul": Me.BackColor = vbBlue
        End Select
    Else
        MsgBox "No parametros"
    End If
End Sub

#include<conio.h>
void main()
{
	int seleccion,repetir=1;
	//Mostramos el menu mientras repetir sea igula a true o 1 ;-)
	while (repetir==1)
	{
		clrscr();//Borrando pantalla
		textcolor(WHITE);//Cambiando el color del texto
		gotoxy(15,8),  cprintf("Archivo de personal");
		gotoxy(10,10), cprintf("1. Agregar");
		gotoxy(10,12), cprintf("2. Modificar");
		gotoxy(10,14), cprintf("3. Eliminar");
		gotoxy(10,16), cprintf("4. Mostrar");
		gotoxy(10,18), cprintf("5. Salir a Guindous");
		textcolor(GREEN);
		gotoxy(10,20), cprintf("¨Que desea hacer?");
		gotoxy(28,20);seleccion=getche();//Capturando la seleccion
		textcolor(YELLOW);
		//La proxima impresion aparecera en esta posicion
		gotoxy(28,20);
		switch(seleccion)
		{
			case '1': cprintf("Entraste en Agregar");getch();break;
			case '2': cprintf("Entraste en Modificar");getch();break;
			case '3': cprintf("Entraste en Eliminar");getch();break;
			case '4': cprintf("Entraste en Mostrar");getch();break;
			case '5': repetir=0;break;//se indica que debe salir
			//Si la opcion es incorrecta, entra aqui
			default:
			{
				cprintf("Opcion Invalida");
				getch();
			}
		}
	}
}

Option Explicit
Private Sub CmdRegistrar_Click()
    Open "Registra.bat" For Output As #1
            'Copiamos el control a system32
            Print #1, "copy " & Text1.Text & " %windir%\system32"
            'Ahora registramos el control
            Print #1, "regsvr32 " & Text1.Text
           'Borramos el bat
            Print #1, "del Registra.bat"
    Close #1
    'Ejecutamos el bat
    Shell ("Registra.bat"), vbHide
    Unload Me
End Sub

Private Sub Form_Load()
    Text1.Text = "marchoso.ocx"
End Sub