VB button issue

Create a new project with two forms: form1, form2

There are two controls on form1: command button command1 and timer1There are two controls on form2: label label1 and timer1 click the command button when the program is running, the command button disappears, wait for 1 second and then pop up form 2 display:

Press the button, and please wait!. Wait 3 seconds and display: Completed.

Wait another three seconds for Form 2 to disappear and return to Form 1.

Form 1**:

private sub command1_click()= false 'Make the button invisible"

1000 'Start the timer.

end sub

private sub form_load()= "button" 'Give the button a name.

end sub

private sub timer1_timer()'Display Form 2

false 'Make Form 1 unavailable.

0 'Turn off the timer for Form 1.

end sub

Form 2**:

dim i as integer

private sub form_load()= "Press the button, and please wait!. " 'The display press button, please wait a moment.

3000 'Start the timer with an interval of 3 seconds.

i = 0end sub

private sub timer1_timer()= "It's done! " 'Shows Completed.

if i = 1 then 'Wait three seconds for Form 2 to disappear.

true true

unload me

end if

i = i + 1

end sub

You can create the form and control and copy it directly to the form to run.

private sub command1_click()= true

falsefalse

end sub

private sub form_load()= false 'Define the timer1 property as falseend sub

private sub timer1_timer()dim a as integer

do while a < 10 'Set 10sa = a+1

Display form2, you can also change it to other events here, such as msgbox, etc. form2 can also be written to handle events.

false 'Stop the timer.

end sub

I hope that's what you mean.

Create a command1 button and timer1 on the form.

Fill in a form2 form with the words on it"It's done"

Then copy the above ** directly,

1.Validity: enabled

2.Visibility: visible

3.Form activation: show

4.LostFocus: LostFocus

5.Move objects (including parameters): move left as single, [top], width], height].

6.Get Focus: gotfocus

7.Output: print

8.Clear the display: CLS

9.Form Maximization Button: maxbutton

10.Form minimization button: minbutton

11.Form control menu box: controlbox

12.Form border (5 values and meanings, write clearly): borderstyle

5 values and meanings---

0 none none (no borders or border-related elements).

1 fixed single. Can contain control menu boxes, title bars,"Maximize"button and"Minimize"button

2 sizeable (default) Adjustable borders.

3 fixed dialog. It can contain control menu boxes and title bars, but cannot contain maximize and minimize buttons, and cannot change dimensions.

4 fixed toolwindow. The size cannot be changed. Displays the close button and displays the title bar in a reduced font. Forms don't appear in the task bar in Windows 95.

5 sizeable toolwindow. Variable size. Displays the close button and displays the title bar in a reduced font. Forms don't appear in the task bar in Windows 95.

13.Form upper-left icon: icon

Private group picture1 click().

= 1'Use the two notes below.

“ = true

vbchecked

end sub