User Form Position

[cfoye130]

I have two userforms. On a command button click of 1 form, that form shows the next form, and then unloads itself. Is there a way to capture the screen location of the 1st userform on the click, and then use it in the initialize code of the other form to place the 2nd form in the same position as the first used to be?

 

[RoryA]

Yes - something like:

   Dim frm               As UserForm2
   Set frm = New UserForm2
   Me.Hide
   With frm
      .StartUpPosition = 0
      .Top = Me.Top
      .Left = Me.Left
      '.height = me.height
      '.width = me.width
   End With
   frm.Show
   Set frm = Nothing
   Unload Me

 

[cfoye130]

Perfect! Thank you!

 

[wigi]

Private Sub CommandButton1_Click()
    With New UserForm2
        .StartUpPosition = 0
        .Left = Me.Left
        .Top = Me.Top
        Unload Me
        .Show
    End With
End Sub

EDIT: oops, too late despite less code