Ayúdame a escribir un programa vb para expresar amor.

A petición de mi compañero de cuarto, cambié un poco y lo publiqué nuevamente:

Agregue una etiqueta1 al formulario, luego borre todo el código original y copie el código aquí. Oye, primero tienes que intentarlo

¿Error? No estoy hablando de mí... ¿Pusiste primero una etiqueta1 en la ventana?

Private Sub Form_Load()

Dim i&, k&

Dim m() As Byte

Dim prew As Long, preh As Largo, pret As Long

Dim h As Long, w As Long

ScreenDC = GetWindowDC(0)

ScreenW = Screen.ScreenW = Screen.Width / Screen.TwipsPerPixelX

ScreenH = Screen.Height / Screen.TwipsPerPixelX