vb.net交换左右键 vb两个数交换位置

vb.net 两个按钮之间的空隙如何去掉？最好把左右之间，还有上下之间的都提一下，谢谢大神们，盼解决。

最简单的方法是鼠标选中，然后按上下左右方向键移动，然后再属性中锁定位置

公司主营业务：成都网站设计、成都做网站、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。创新互联是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联推出平塘免费做网站回馈大家。

扫雷中左右键一起按的按键键值是什么(VB.NET)

左键是1

右键是2

中键是4

可以组合相加

左右同时就是3，也可以写做：vbleftbutton+vbrightbutton

求教，VB左右列表框交换

下面我给你一个例子     自己琢磨一下

代码：

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim i As Integer

For i = 0 To ListBox1.SelectedIndices.Count - 1

ListBox2.Items.Add((ListBox1.Items(ListBox1.SelectedIndices(0))))

ListBox1.Items.RemoveAt(ListBox1.SelectedIndices(0))

Next

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

ListBox1.Items.Clear()

ListBox1.Items.Add("高等数学")

ListBox1.Items.Add("大学物理")

ListBox1.Items.Add("大学生计算机基础")

ListBox1.Items.Add("VB.NET程序设计")

ListBox1.Items.Add("多媒体技术与应用")

ListBox1.Items.Add("数据库技术与应用")

ListBox1.Items.Add("Wed技术与应用")

ListBox1.Items.Add("大学英语")

ListBox1.Items.Add("电影鉴赏")

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

ListBox1.Items.Clear()

ListBox2.Items.Clear()

ListBox2.Items.Add("高等数学")

ListBox2.Items.Add("大学物理")

ListBox2.Items.Add("大学生计算机基础")

ListBox2.Items.Add("VB.NET程序设计")

ListBox2.Items.Add("多媒体技术与应用")

ListBox2.Items.Add("数据库技术与应用")

ListBox2.Items.Add("Wed技术与应用")

ListBox2.Items.Add("大学英语")

ListBox2.Items.Add("电影鉴赏")

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

ListBox2.Items.Clear()

ListBox1.Items.Clear()

ListBox1.Items.Add("高等数学")

ListBox1.Items.Add("大学物理")

ListBox1.Items.Add("大学生计算机基础")

ListBox1.Items.Add("VB.NET程序设计")

ListBox1.Items.Add("多媒体技术与应用")

ListBox1.Items.Add("数据库技术与应用")

ListBox1.Items.Add("Wed技术与应用")

ListBox1.Items.Add("大学英语")

ListBox1.Items.Add("电影鉴赏")

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim i As Integer

For i = 0 To ListBox2.SelectedIndices.Count - 1

ListBox1.Items.Add((ListBox2.Items(ListBox2.SelectedIndices(0))))

ListBox2.Items.RemoveAt(ListBox2.SelectedIndices(0))

Next

End Sub

End Class