Postada em 25/11/2010 13:25 hs
Show For x = 1 To Picture1.ScaleWidth Step 0.1 Picture2.PaintPicture Picture1.Picture, 0, 0, _ Picture1.ScaleWidth, Picture1.ScaleHeight, 0, 0, x, _ Picture1.ScaleHeight, &HCC0020 Next
Picture2.Width = Picture1.Width Picture2.Height = Picture1.Height Picture2.Top = Picture1.Top Picture1.Visible = False
Picture2.FontSize = 14 Picture2.Print Tab(35); ReadINI(Link & "Base.ini", "Superintendencia", "Sup")
QUANDO ABRO OUTRO FORMULÁRIO EM CIMA DO PICTURE O TEXTO DESAPARECE E A FIGURA TAMBÉM, ELES SE APAGAM = A APAGAR ALGUMA COISA COM BORRACHA
|