Option ExplicitDim I As IntegerDim S As IntegerPrivate Sub Command1_Click()Unload MeEnd SubPrivate Sub Form_Click()Timer2.Enabled = FalseTimer1.Enabled = TrueEnd SubPrivate Sub Form_Load()I = 500S = 120Form1.Height = IForm1.Width = IEnd SubPrivate Sub Label1_Click()Timer2.Enabled = TrueTimer3.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Do While (I < 4005)...