求助！VB中picturebox控件用API画图的坐标问题！
我曾用picturebox的line函数画图，想提高运行速度，现在想用API。VB默认的单位是缇，坐标原点在左上角，X正方向向右为255个单位，Y的正方向向下为100单位。而API中默认的是像素，想请教各位高手，我应该用API怎样编写，能达到和以前同样的效果？谢谢各位！
1像素=15缇
能不能换picturebox的scalemode
回复zhao4zhong1
1像素=15缇，应该在那里改呢？在lineto函数中吗？
回复patrickkong
我试过了，似乎没有用，你是否用过呢？能说的具体些吗？
VB code:
Private Declare Function CreatePen Lib "gdi32" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Const PS_SOLID = 0
Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, lpPoint As Long) As Long
Private Sub Command1_Click()
Picture1.AutoRedraw = True
Picture1.Scale (0, 0)-(255, 100)
Picture1.Line (20, 20)-(80, 80), vbRed
End Sub
Private Sub Command2_Click()
Dim ret As Long
Dim re As Long
Dim re1 As Long
Picture1.ScaleMode = 3
Picture1.Scale (0, 0)-(255, 100)
Picture1.AutoRedraw = True
X1 = Int(20 * Picture1.Width / 255 / Screen.TwipsPerPixelX)
Y1 = Int(20 * Picture1
相关问答：
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
在vb这编程里似乎有很多的东西是相联系的，为什么有些人对vb的编程摸不到头脑啊！并且有些事很容易的，但是却把它们的代码变成复杂，也去想一些不能实现的东西啊！
没分了，楼主多来点分！
来接点分
......
怎么优化查询的效率，比如我想从100万条记录中每次只查询100条记录的话，那么这条sql语句该怎么实现，注意：语言是VBScript的，
http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html
涉及到算法，goog ......
我是VB的新成员，现在想用VB来做个TXT文档，请大家给我代码及介绍一下相应的控件！
非常感谢！！！！！！
可以用一些OFFICE控件
google上找一下吧,VB写入TXT,很多样例代码的
直接调查用就可以了
面对美女 ......
各位大虾：
我是刚学VB，现在想用VB调用一个动态库，动态库里面有很多函数。我知道使用VB调用动态库调用函数，需要将要调用的函数在程序中声明即可，但是里面有很多函数，不会每一个函数都要声明吧。请� ......
