codigos imagenes visual basic


Private Sub Command1_Click()
Dim formato As String
Rem guarda en formato lo que se digite en la caja de texto
formato = Text1.Text

Rem mostrar un mensaje de acuerdo con la edad
Select Caseformato
Case Is = "bogota"

Label2.Caption = "bogota,oficialmente bogota distrito capital(D.C)es la ciudad capital de la republica de colombia y del departamento de cundinamarca esta organizadacomo distrito capital, gozando de autonomia para la gestion de sus intereses dentro de los limites de la costitucion y la ley. Esta costituida por 20 localidades y es el centro administrativo y politicodel pais"

Image1.Picture = LoadPicture(App.Path + "\bogota.jpg")
sonido.URL = (App.Path + "\colombia.mp3")

Case Is = "cartagena"

Label2.Caption = "cartagena de indias o cartagena es unaciudad colombiana, capital del departamento de bolivar, fue fundada en el año 1533 por pedro de herendia.es la quinta ciudad del pais en poblacion despues de bogota, medellin,cali, y barranquilla. desde1991 cartagena es un distrito turistico y cultural la ciudad esta localizada a orillas del mar caribe y es el segundo centro urbano en impotacion de la region caribe colombiana, despues de la debarranquilla"

Image1.Picture = LoadPicture(App.Path + "\mar.jpg")
sonido.URL = (App.Path + "\cartagena.mp3")

Case Is = "cali"


Label2.Caption = "Cali (oficialmente, Santiago de Cali) es lacapital del departamento de Valle del Cauca en Colombia y la tercera ciudad más poblada del país, después de Bogotá y Medellín. Por extensión Cali es la segunda ciudad mas grande de Colombia después deBogotá al poseer un área de 564 km². La ciudad forma parte del Área Metropolitana de Santiago de Cali, junto con los municipios aledaños a ésta"
Image1.Picture = LoadPicture(App.Path + "\cali.jpg")sonido.URL = (App.Path + "\cali.mp3")
Case Is = "barranquilla"

Label2.Caption = " Barranquilla es una ciudad colombiana, capital del departamento del Atlántico. Está ubicada sobre la margen...