Dim ListBox1 As WinForm.ListBox = e.Form.Controls("ListBox1")
ListBox1.BaseControl.AllowDrop = True
AddHandler ListBox1.BaseControl.DragEnter, AddressOf ListBox1_DragEnter
AddHandler ListBox1.BaseControl.DragDrop, AddressOf ListBox1_DragDrop
basemainform.AllowDrop = True
AddHandler basemainform.DragEnter, AddressOf ListBox1_DragEnter
AddHandler basemainform.DragDrop, AddressOf ListBox1_DragDrop2
BeforeClose自己改改
加好友 
发短信
Post By：2018/4/24 23:20:00 [显示全部帖子]
