[resolved] Help: StretchBlt results in empty .Picture property

[Microbasic]

Private Sub Command2_Click()
    z = 2
    pic2.Height = pic1.Height / z
    pic2.Width = pic1.Width / z
    For x = 0 To pic2.Width
        For y = 0 To pic2.Height
            StretchBlt pic2.hdc, x, y, z, z, pic1.hdc, x * z, y * z, z, z, &HCC0020
        Next y
    Next x
    pic2.Refresh
    Clipboard.SetData pic2.[b]Image[/b]
End Sub