VB: How to get my custom border working like a regular border?

Im working on a little Application currently and I have a custom border I am doing! But there are a few issues that I need to be resolved. Now as the title is listed it has VB = Visual Basic. I'm using this because it is easier to create the Forms with. Long story short my issue is that I want my border "Top" to show that it is inactive. For instance when you click of a program such as Chrome the "Top" of the border turns to White. I would need someone to send Coding examples or an explanation for how to code that.

Secondly, I currently can only drag around the window. I can't smack the window against the side or the top and have it expand(like a normal window would). This is what I have that is controlling my window currently.

 Private Sub Panel1_MouseDown(sender As Object, e As MouseEventArgs) Handles Panel1.MouseDown
    XP = MousePosition.X - Me.Location.X
    YP = MousePosition.Y - Me.Location.Y

End Sub

and

  Private Sub Panel1_MouseMove(sender As Object, e As MouseEventArgs) Handles Panel1.MouseMove


    If e.Button = MouseButtons.Left Then
        NewPoint = MousePosition
        NewPoint.X = NewPoint.X - XP
        NewPoint.Y = NewPoint.Y - YP
        Me.Location = NewPoint
    End If
End Sub

As you can see that only grabs the X and Y and lets me just move it. I need a view examples or explanation on how to be able to expand with a mouse to customly make it big and/or small and how to get the Snapping feature to work, I hope someone can supply me a answer that can resolve this!

Thank You in Advance!