2.
Code:
Text1.Width = Text2.Text
Text1.Height = TExt3.Text
That will allow you to specify the width and height of the text box.
1.
You should start a loop with a timer interval set to five seconds and after each interval is reached change the color of the text box. Or have a sleep event like so:
Code:
Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Text1.BackColor = vbGreen
Sleep 5000
Text1.BackColor = vbRed
Sleep 5000
Command1_Click
End Sub
I would recomed going the timer way instead of the one shown above.
Gl,
D!m