Redimensionar Imagem

[Andersonjb]

Pessoal, estou com problemas em redirecionar uma imagem. É o seguinte: estou capturando a tela do meu Desktop. Só que o problema é que a imagem vem muito grande, na resolução total da tela. E aqui no VB 6, eu não consegui redimensionar... :(

Olhem o Código:

    If KeyCode = vbKeyF1 Then
        tela.AutoRedraw = False
        h = GetDC(GetDesktopWindow())
        BitBlt tela.hDC, 0, 0, ScaleX(tela.Width, 1, 3), ScaleY(tela.Height, 1, 3), h, 0, 0, vbSrcCopy
        SavePicture tela.image, "c:\teste.jpg"
        Form1.Visible = True
    End If

Inclusive, o código para se capturar a tela foi pego de um exemplo aqui do Graymalkin. E o Objeto e uma PictureBox. alguém tem alguma idéia de como eu posso redimensionar essa imagem?

[kuroi]

estagiario é foda mesmo em

zuera, também não sei como fazer com picturebox, mas com o objeto Image, é so por a propriedade Stretch = True. ai você mexe nas propriedades Width e Heigth do jeito que quiser