怎么解决VB中画线线形问题
当把线形设为比1大时，线形就不管用了，怎么解决呢？高手赐教
VB code:
Private Sub Command1_Click()
Picture1.DrawStyle = 4
Picture1.DrawWidth = 1
Picture1.Line (0, 0)-(1000, 1000)
'若 DrawWidth 属性设置为大于 1， DrawStyle 属性设置值为 1 到 4 会画一条实线（ DrawStyle 属性值不改变）。
'若 DrawWidth 设置为 1， DrawStyle 产生的效果如前面表中的各设置值所述。
End Sub
我的意思是线宽增大的话，还有原来的线形效果，有虚线，点线，等等。。。
这个怎么做呢，用VB
相关问答：
我有厂家做的ASP的监控录像（DVR）的局域网播放的源程序与控件，想要用ASP.net做一个视频回放的程序（利用他的控件）但不知如下去做，望各位指点。
先搞清楚他们的控件是怎么用的,
然后就直接用好了.
不过,如 ......
请教一下：我用vb写了一个调用Illustrator的测试程序，代码很简单：Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
怎么优化查询的效率，比如我想从100万条记录中每次只查询100条记录的话，那么这条sql语句该怎么实现，注意：语言是VBScript的，
http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html
涉及到算法，goog ......
在vb中怎么判断，插入到数据库中的值是重复的，本人才刚接触VB语言，甚是有好多地方还不懂，还请各位大侠们给出代码，谢谢了呀！！！
插入之前select一下阿。
或者写一个组合SQL插入语句，例如
IF not Exist(
& ......
初学，大胆提问，请高手不吝赐教
1、滚动条点击与绘图板（屏幕,Piceure1）的移动问题已经解决。
Picture1.Top = -VScroll1.Value + bcW '垂直移动
Picture1.Left = -HScroll1.Value + bcW ' ......
