[RESOLVED] about paintpicture method

[joaquim]

i'm using a visual basic 6...
i'm trying use the paintpicture method, but i don't hunderstand these method... i'm trying but it's difficult...
i'm trying build a flip procedure using these method, but i recive draw bugs...

Option Explicit

Private Enum FlipState
    Vertical = 0
    Horizontal = 1
    HorizontalVertical = 2
End Enum

Private Sub Flip(picSource As PictureBox, picDestiny As PictureBox, fsFlip As FlipState)
    If fsFlip = Vertical Then
        picDestiny.PaintPicture picSource.Image, 0, 0, picSource.ScaleWidth, -picSource.ScaleHeight, 0, 0, picSource.ScaleWidth, picSource.ScaleHeight, vbSrcCopy
    ElseIf fsFlip = Horizontal Then
        picDestiny.PaintPicture picSource.Image, 0, 0, -picSource.ScaleWidth, picSource.ScaleHeight, 0, 0, picSource.ScaleWidth, picSource.ScaleHeight, vbSrcCopy
    ElseIf fsFlip = HorizontalVertical Then
        picDestiny.PaintPicture picSource.Image, 0, 0, -picSource.ScaleWidth, -picSource.ScaleHeight, 0, 0, picSource.ScaleWidth, picSource.ScaleHeight, vbSrcCopy
    End If
End Sub

Private Sub Combo1_Click()
    Flip Picture1, Picture2, Vertical
End Sub

can anyone explain to me what isn't right?
thanks

[joaquim]

i found the answer...
when i put the image in Vertical(for example), i must change the position: insted 0, i must use the height image for the new position...
thanks