Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long

 

Private 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

Private Declare Function ReleaseDC Lib "user32.dll" (ByVal hwnd As Long, ByVal hdc As Long) As Long

 

Private Sub Form_Load()

 

   Me.ScaleMode = 3

 

End Sub

 

 

 

Private Sub Form_Paint()

   Dim hDC as Long

   hDC = GetWindowDC(Me.hwnd)

   Call BitBlt(hDC, 0, 0, Me.ScaleWidth - 70, 20, Me.hDC, 0, 0, vbSrcCopy)

   Call ReleaseDC(Me.hwnd, hDC)

End Sub