Private Sub Panel1_MouseMove(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Panel1.MouseHover
        Me.Panel1.Hide()
        Button5.Show()
    End Sub
 
    Private Sub Button5_MouseLeave(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Button5.MouseLeave
        Button5.Hide()
        With Me.Panel1
            .BackColor = Me.BackColor
            .Top = Me.Button5.Top
            .Left = Me.Button5.Left
            .Size = Me.Button5.Size
            .Show()
        End With
    End Sub

fg viperbone