求助！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
相关问答：
请教一下：我用vb写了一个调用Illustrator的测试程序，代码很简单：Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
比如说要在1表中的第三列第二行单元中输入“一二三”一要粗体宋体12号字，二 不要粗体 15号字 三斜体5号字
代码应该怎么打？
LZ指的是个什么表格控件呢，貌似只能设置整个表的字体，或者某几行或几列，没有单独设� ......
在vb中怎么判断，插入到数据库中的值是重复的，本人才刚接触VB语言，甚是有好多地方还不懂，还请各位大侠们给出代码，谢谢了呀！！！
插入之前select一下阿。
或者写一个组合SQL插入语句，例如
IF not Exist(
& ......
看了一些VB ini文件写入读取的方法 但是还是不知道怎么写，上面写了很长 很多，但是我不知道怎么用，我想问一下怎样写才能实现在TEXT1中写字，然后点Command1提交，然后TEXT1里面的数字就写进INI里面[Section]的Key1 ......
