¿Cómo programar el botón de comando vb6 para mostrar la imagen de función?

Dim variables de declaración CX, CY, Msg, XPos, YPos.

ScaleMode = 3 'Establece ScaleMode en píxeles.

DrawWidth = 5 'Establece el ancho del dibujo. 'Establece el primer plano en rojo.

FontSize = 24 'Establece el tamaño del punto.

CX = ScaleWidth/2 'Obtiene el punto medio horizontal.

CY = ScaleHeight/2 'Para obtener el punto medio vertical.

Forma explícita de Cls.

Msg = "¡Feliz año nuevo!" CurrentX = Ancho del texto CX (Msg)/2 'Posición horizontal.

CurrentY = CY-TextHeight(Msg)'Posición vertical.

"Imprimir mensaje" imprime el mensaje.

Do XPos = Rnd * ScaleWidth 'Obtiene la posición horizontal.

YPos = Rnd * ScaleHeight ' para obtener la posición vertical.

Pset (xpos, ypos), qbcolor (RND * 15) 'Dibuja trozos de papel de colores.

"Evento"

"Bucle" otro procesamiento.

Conector final

Puedes usar instrucciones de dibujo en todos los controles que admitan este PsET. Se recomienda colocar una imagen de coordenadas de mapa de bits en la imagen, y las coordenadas estarán disponibles solo cuando se dibujen en la imagen.