centering

i am trying to center a pic that pops up on start up with my client and here is my code and know????

Private Sub Command1_Click()

End Sub

Private Sub timer1_timer()

Form1.Show
Unload Me

End Sub

 

Just make the picture smaller, center it, then drag it out to the right size?

 

Do you mean like a splash screen?
If so, make a form with the picture on it. Then hold ctrl and hit P. Go down to properties select that. Then on the right side theres a dropdown box titled 'Startup Form'. Select the form with the picture on it. If thats not what you wanted, post back and I'll help.

 

Code:

Private Sub Form_Load()
    Image1.Left = (Me.Width / 2) - (Image1.Width / 2)
    Image1.Top = (Me.Height / 2) - (Image1.Height / 2)
End Sub

 

Set the image's stretch property to true (Not picturebox, Image control FTW) and then set the form to borderless. Use a timer for anything else you may be wanting.