Anti-QQ scaling menu. Copied from the comrades in the park. Sorry. I only want to record it.

Public Class Form2
Private Sub Form2_Load (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles MyBase. Load
Button1.Dock = DockStyle. Top
Button2.Dock = DockStyle. Bottom
Button3.SendToBack ()
Button3.Dock = DockStyle. Bottom
ListView. BringToFront ()
ListView. Dock = DockStyle. Fill
ListView. Clear ()
ListView. LargeImageList = ImageList
ListView. Items. Add ("wife", "wife", 5)
ListView. Items. Add ("beebot", "beebot", 1)
ListView. Items. Add ("Lili", "Lili", 4)
ListView. Items. Add ("Zhou Gong", "Zhou Gong", 7)
ListView. Items. Add ("lover", "lover", 7)
ListView. Items. Add ("Flowers", "Flowers", 8)
ListView. Items. Add ("Bay", "Bay", 9)
End Sub
Private Sub button#click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1.Click
Button1.Dock = DockStyle. Top
Button2.Dock = DockStyle. Bottom
Button1.SendToBack ()
Button3.Dock = DockStyle. Bottom
ListView. BringToFront ()
ListView. Dock = DockStyle. Fill
ListView. Clear ()
ListView. LargeImageList = ImageList
ListView. Items. Add ("wife", "wife", 5)
ListView. Items. Add ("beebot", "beebot", 1)
ListView. Items. Add ("Lili", "Lili", 4)
ListView. Items. Add ("Zhou Gong", "Zhou Gong", 7)
ListView. Items. Add ("lover", "lover", 7)
ListView. Items. Add ("Flowers", "Flowers", 8)
ListView. Items. Add ("Bay", "Bay", 9)
End Sub

Private Sub Button3_Click (ByVal sender As System. Object, ByVal e As System. EventArgs)
Button1.Dock = DockStyle. Top
Button2.Dock = DockStyle. Top
Button1.SendToBack ()
Button2.SendToBack ()
Button3.SendToBack ()
Button3.Dock = DockStyle. Top
ListView. BringToFront ()
ListView. Dock = DockStyle. Fill
ListView. Clear ()
ListView. LargeImageList = ImageList
ListView. Items. Add ("wife", "wife", 5)
ListView. Items. Add ("beebot", "beebot", 1)
ListView. Items. Add ("Lili", "Lili", 4)
ListView. Items. Add ("Zhou Gong", "Zhou Gong", 7)
ListView. Items. Add ("lover", "lover", 7)
ListView. Items. Add ("Flowers", "Flowers", 8)
ListView. Items. Add ("Bay", "Bay", 9)
End Sub

Private Sub Button2_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button2.Click
Button1.Dock = DockStyle. Top
Button2.Dock = DockStyle. Top
Button1.SendToBack ()
Button2.SendToBack ()
Button3.Dock = DockStyle. Bottom
ListView. BringToFront ()
ListView. Dock = DockStyle. Fill
ListView. Clear ()
ListView. LargeImageList = ImageList
ListView. Items. Add ("wife", "wife", 5)
ListView. Items. Add ("beebot", "beebot", 1)
ListView. Items. Add ("Lili", "Lili", 4)
ListView. Items. Add ("Zhou Gong", "Zhou Gong", 7)
ListView. Items. Add ("lover", "lover", 7)
ListView. Items. Add ("Flowers", "Flowers", 8)
ListView. Items. Add ("Bay", "Bay", 9)
End Sub
End Class

Button1.SendToBack ()
Http://msdn.microsoft.com/zh-cn/library/microsoft.office.tools.excel.controls.button.sendtoback.aspx

ListView. BringToFront ()

Http://msdn.microsoft.com/zh-cn/library/microsoft.office.tools.excel.controls.listview.bringtofront.aspx

Set

. SendToBack () is where Button2 ran.