Form Manipulation?

[vb6-lover]

How do I make my form expand gardually with a press of a button and get retracted again by pressing another button. ?

[MartinLiss]

Add a timer to your form and do something like this

Option Explicit
Private gintFactor As Integer
 
Private Sub cmdDecrease_Click()
 
    gintFactor = -25
 
 
End Sub
 
Private Sub cmdIncrease_Click()
 
    gintFactor = 25
 
End Sub
 
Private Sub Form_Load()
 
 Timer1.Interval = 200
 
End Sub
 
 
Private Sub Timer1_Timer()
 
    Me.Height = Me.Height + gintFactor
    Me.Width = Me.Width + gintFactor
 
End Sub

You can change the Timer interval and/or the factor.