Userform startup position

rickblunt

Active Member
Greetings, I am using the following code to open a number of userforms simultaneously in a cascade layout. The first code (cleanroom zone) runs perfectly and the userforms layout just as I want them to. But the second one (grayroom zone) doesn't. The userforms do not start up in the same place, in fact a couple of them are stacked directly on each other. I can't figure out why, the code is exactly the same on each one. Anyone have an idea why they are not launching the same? Thanks,


Code:
Private Sub CleanroomZoneButton_Click()

    Unload EmergencyLightArea

    With DataEntryEmergencyShowerCr
    .Top = 10
    .Left = 10
    End With
    DataEntryEmergencyShowerCr.Show
        
    With DataEntryFeCr
    .Top = 50
    .Left = 50
    End With
    DataEntryFeCr.Show
        
    With DataEntryElCr
    .Top = 100
    .Left = 100
    End With
    DataEntryElCr.Show
        
    With DataEntryLadder
    .Top = 150
    .Left = 150
    End With
    DataEntryLadder.Show
        
    
End Sub
Code:
Private Sub GrayroomZoneButton_Click()

    Unload EmergencyLightArea
    
    With DataEntryEmergencyShowerGr
    .Top = 10
    .Left = 10
    End With
    DataEntryEmergencyShowerGr.Show
        
    With DataEntryFeGr
    .Top = 50
    .Left = 50
    End With
    DataEntryFeGr.Show
        
    With DataEntryElGr
    .Top = 100
    .Left = 100
    End With
    DataEntryElGr.Show
        
    With DataEntryLadder
    .Top = 150
    .Left = 150
    End With
    DataEntryLadder.Show
    

End Sub
 

DanteAmor

Well-known Member
Try this

Code:
Private Sub CleanroomZoneButton_Click()


    Unload EmergencyLightArea


    DataEntryEmergencyShowerCr.Show
    With DataEntryEmergencyShowerCr
    .Top = 10
    .Left = 10
    End With
[COLOR=#0000ff]    DoEvents[/COLOR]
        
    DataEntryFeCr.Show
    With DataEntryFeCr
    .Top = 50
    .Left = 50
    End With
    DoEvents
        
    DataEntryElCr.Show
    With DataEntryElCr
    .Top = 100
    .Left = 100
    End With
    DoEvents


    DataEntryLadder.Show
    With DataEntryLadder
    .Top = 150
    .Left = 150
    End With
    DoEvents
End Sub


Private Sub GrayroomZoneButton_Click()


    Unload EmergencyLightArea
    
    DataEntryEmergencyShowerGr.Show
    With DataEntryEmergencyShowerGr
    .Top = 10
    .Left = 10
    End With
[COLOR=#0000ff]    DoEvents[/COLOR]
        
    DataEntryFeGr.Show
    With DataEntryFeGr
    .Top = 50
    .Left = 50
    End With
    DoEvents
    
    DataEntryElGr.Show
    With DataEntryElGr
    .Top = 100
    .Left = 100
    End With
    DoEvents
        
    DataEntryLadder.Show
    With DataEntryLadder
    .Top = 150
    .Left = 150
    End With
    DoEvents
End Sub
 

rickblunt

Active Member
Thanks for the reply Dante, I realized later that I had made a rookie mistake and that the startup settings on some of my userforms was set to "1-center" instead of "0-manual". Duh, I appreciate the help
 

Some videos you may like

This Week's Hot Topics

Top