Funcion para centrar un usercontrol

[E N T E R]

Hola tengo este uccontrol, y quiero crear una funcion para centrar el uc dentro del form pero no me esta funcionando

SOURCE

http://www.mediafire.com/?2gttlfaf3dl2f2y

[pedroesca]

Así me salió

Código: [Seleccionar]

Public Sub CENTRAR_VENTANA(ucVentanita As Object, Formu As Form)
    Dim isq As Long
    isq = (Formu.Width - ucVentanita.Width) / 2
   
    If isq < 0 Then isq = 0
        arr = (Formu.Height - ucVentanita.Width) / 2
    If arr < 0 Then arr = 0
   
   
    ucVentanita.Left = isq - 150
    ucVentanita.Top = arr - 100
   
End Sub


[E N T E R]

Perfecto amigo Pedro, funciono de maravillas te agradezco.