500 Points Question

LVL 10
Who is Participating?
arif_eqbalConnect With a Mentor Commented:
Add a Panel Dock it properly so that it is Docked to the Bottom and Left of the Form

Now add whatever Controls you want to appear on the Panel I have Added one Button called Button3. Also on the top Right Cornor add a small button called CmdPin which will be used to Pin the Panel

Now Add the code

declare a form level variable
Dim Pinned As Boolean = False

'Handle the MouseEnter for all control added on the Panel
    Private Sub Panel1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Panel1.MouseEnter, Button3.MouseEnter
        Me.Panel1.Width = 100
    End Sub

    Private Sub Panel1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Panel1.MouseLeave, Button3.MouseLeave
        If Not Pinned Then Panel1.Width = 10
    End Sub

   Private Sub CmdPin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdPin.Click
        Pinned = Not Pinned
    End Sub

Now this is very crude code, you need to beautify things a bit for example instead of directly setting Panel1.Width = 10 And Panel1.Width = 100

call a Timer and this Timer will slowly increment or decrement the width giving an Animation effect.

However this might get you started

imrancsAuthor Commented:
Thanks Arif,

I have got the Infragistics WinDock control and I am working on it.

But you gave me good option with using third party control, so I am acception your comments as answer.

I am deleting the question for which I have posted the link above and increasing the points of this question.

Thanks again.
imrancsAuthor Commented:
You are Welcome!!! :o)
All Courses

From novice to tech pro — start learning today.