Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Form2.Show()
        Form2.Top = Me.Top + 30
        Form2.Left = Me.Left + 30
        Form2.Width = Me.Width - 60
        Form2.Height = Me.Height - 60
        Form2.Focus()
    End Sub

fg viperbone