Foro de elhacker.net

En el evento OnMouseHover de un picturebox estoy intentando mostrar un form con la propiedad "CenterParent", pero cuando intento emparentar el form no me deja iniciar la aplicación y me salta error.

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            Form2.Parent = Me
        Catch ex As Exception
            MsgBox(ex.Message)
            ' Error: top-level control cannot be added to a control
        End Try
    End Sub

Ya lo he conseguido, os dejo la solución (Vivan los snippets xD):


Main form:

    Private Sub OnMouseHover(sender As Object, e As EventArgs) Handles Button1.MouseHover
        Form2.Show()
    End Sub
 
    Private Sub OnMouseLeave(sender As Object, e As EventArgs) Handles Button1.MouseLeave
        ' Hay que liberarlo, con un form2.close o form2.hide solo conseguiremos que se centre la primera vez!
        Form2.Dispose()
    End Sub
 
#Region " CenterForm function "
 
    Function centerForm(ByVal Form_to_Center As Form, ByVal Form_Location As Point) As Point
        Dim pLocation As New Point
        pLocation.X = (Me.Left + (Me.Width - Form_to_Center.Width) / 2) '// set the X coordinates.
        pLocation.Y = (Me.Top + (Me.Height - Form_to_Center.Height) / 2) '// set the Y coordinates.
        Return pLocation '// return the Location to the Form it was called from.
    End Function
 
#End Region

Form secundario:

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Location = Form1.centerForm(Me, Me.Location)
    End Sub