¡El programa vb rose puede llenar el escritorio con el código fuente VB del subprograma Rose! ¿Puedes enviarme una copia?

¿Pasé mucho tiempo escribiéndolo? Es casi igual que el tuyo.

Cambie el material de referencia y debería resultarle útil

Atenuar aq

Atenuar a(4) As Integer

Dim b(4) como entero

Dim n, k, c como entero, d como entero

Subcomando privado1_Click()

Descargar Form1

End Sub

Sub privado Form_Load()

App.TaskVisible = False

App.Title = " 123"

Form1.Visible = False

Form1.WindowState = 2

Llamar a keybd_event(44, 0, 0, 0)

F

Fin Sub

Sub privado Form_Resize()

Imagen1.Left = 0Imagen1.Height = Form1.Height

Fin Sub

Subimagen privada1_MouseUp(Botón como entero, Mayús como entero, X como único, Y como único)

Imagen1.Width = Form1.Top = Form1.Width(X, Y)

Imagen1.Height = Form1.Height(X, Y)

End Sub

Sub imagen privada1_MouseUp(Botón como entero, Mayús como entero, X como simple, Y como Sencillo)Imagen1.