Make form center on screen? [RESOLVED]

[Madboy]

And i dont mean when it starts up.

Private Sub mnuViewFileEditorMode_Click()
'Size window according to users preference
    If mnuViewFileEditorMode.Checked = True Then
        mnuViewFileEditorMode.Checked = False
        Me.Width = 5730
    ElseIf mnuViewFileEditorMode.Checked = False Then
        mnuViewFileEditorMode.Checked = True
        Me.Width = 11520
    End If
End Sub

This sizes my form when the menu is clicked, the problem is, sometimes my form is left right at the far left off the screen.

Is there any way to make it go to the center?

Thanks

[demotivater]

Try this...

Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2

[Madboy]

Gr8 M8

But, i only want it centering for when the form is made small. If it isnt then just position as it does normally when my form first starts up:

Private Sub mnuViewFileEditorMode_Click()
'Size window according to users preference
    If mnuViewFileEditorMode.Checked = True Then
        mnuViewFileEditorMode.Checked = False
        Me.Width = 5730
        Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
    ElseIf mnuViewFileEditorMode.Checked = False Then
        mnuViewFileEditorMode.Checked = True
        Me.Width = 11520
    End If
End Sub

[Madboy]

DOH! fixed, needed to add the code again under Elseif

Thanks mate

[robi_thakur]

Try this...

Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2

thanks bro

[baja_yu]

Please don't bump old threads (like this one that has been dead for almost 7 years). If you want to show appreciation to someone that help, you can use the rating system, next to every post on the left beneath user info there is a "Rate this post" link which you can use to thank someone and add points to their reputation.