I searched the forums, and Si's sig about errors with vb6. But didn't help. I have this code:
Moduel:
Code:
Option Explicit
Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Public picRedBrick As PictureBox
Form1:
Code:
Private Sub Command_Click()
picRedBrick.Picture = VB.LoadPicture(App.Path & "\Brick_Red.bmp")
Set picRedBrick.ScaleMode = "3"
BitBlt Form1.hDC, 0, 0, esta.ScaleWidth, esta.ScaleHeight, esta.hDC, 0, 0, vbSrcCopy
End Sub
It isn't working, and it highlights both lines that i try to set the scalemode, AND load the picture. Am i doing something wrong?