童鞋，我是不是看到你的数据库sa账号密码了，希望你已经改了密码。。。
创新互联专注于企业营销型网站建设、网站重做改版、海盐网站定制设计、自适应品牌网站建设、H5技术、电子商务商城网站建设、集团公司官网建设、外贸营销网站建设、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为海盐等各大城市提供网站开发制作服务。
重启一下vs，看是否会恢复正常
控件（包括字体）随窗体按比例缩放
Public Class frmDl'根据自己窗体名变更
Dim x As Single = 0
Dim y As Single = 0
Private Sub frmDl_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
x = Me.Width
y = Me.Height
setTag(Me)
End Sub
'递归取控件的原始大小和位置，用tag来纪录
Private Sub setTag(ByVal obj As Object)
For Each con As Control In obj.Controls
con.Tag = con.Width ":" con.Height ":" con.Left ":" con.Top ":" con.Font.Size
'如果是容器控件，则递归继续纪录
If con.Controls.Count 0 Then
setTag(con)
End If
Next
End Sub
'递归重新设定控件的大小和位置
Private Sub setControls(ByVal newx As Single, ByVal newy As Single, ByVal obj As Object)
For Each con As Control In obj.Controls
con.AutoSize = False
Dim mytag() As String = con.Tag.ToString.Split(":")
con.Width = mytag(0) * newx
con.Height = mytag(1) * newy
con.Left = mytag(2) * newx
con.Top = mytag(3) * newy
'计算字体缩放比例，缩放字体
Dim currentSize As Single = (mytag(1) * newy * mytag(4)) / mytag(1)
con.Font = New Font(con.Font.Name, currentSize, _
con.Font.Style, con.Font.Unit)
'如果是容器控件，则递归继续缩放
If con.Controls.Count 0 Then
setControls(newx, newy, con)
End If
Next
End Sub
Private Sub frmDl_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
'得到现在窗体的大小，然后根据原始大小计算缩放比例
Dim newx As Single = Me.Width / x
Dim newy As Single = Me.Height / y
setControls(newx, newy, Me)
End Sub
End Class
没有环境无法准确帮你找，只能大概说下类似的软件。如果有视图（view）之类菜单下，一般都会有状态栏信息栏等，勾选出来就能出现快捷菜单了。
表示刚才亲自测试，建立以个Form，拖了一个Panel，在Panel里面放了3个RadioButton（默认Checked就是False）,然后启动，发现第一个被选中了，
然后双击了一下它，跳到代码页面，在启动，第二个被选中，双击第二个和第三个，此时再代码一面出现了3个按钮的事件，在三个事件都设好断点，启动程序，发现3个都没有被选中了，而且也没执行任何一个事件。
有tabControl 控件啊，如果你的“工具箱里没有的话，”自己去工具箱的选项里把它勾选出来。
updown 可以自己写一个控件出来，用一个文本框加一个滚动条或两个按钮就好。
不能实现，listbox没必要有此功能。
因为listbox被视为一个整体，其每一项背景颜色都根据鼠标移上去而改变。
