Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Top = Form1.Top
Me.Left = Form1.Left
timer1.enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Me.Width < Form1.Width - 5 Then
Me.Width += 5
Else
Me.Width = Form1.Width
Timer1.Enabled = False
End If
Me.Focus()
End Sub
End Class
Add a timer in your form and set time as 1000ms