mi amigo carlos agustin me respondio correctamente. gracias de antemano
la solucion fue:
mlngX = 1500
mlngY = 1500
Picture = VB.LoadPicture(cmmdgFile.FileName)
Left = 1035
Top = 1020
mlngX1 = .Width
mlngY1 = .Height
Move .Left + ((mlngX - mlngX1) / 2), .Top + ((mlngY - mlngY1) / 2)
