gerekenler :1 DriveListBox,1 DirListBox,1 FileListBox,5 command butonu,2 TextBox,1 PictureBox

Kod:
Option Explicit Private Sub Command1_Click() On Error Resume Next Picture1.PaintPicture Picture1.Picture, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, &H550009 End Sub Private Sub Command2_Click() On Error Resume Next Picture1.PaintPicture Picture1.Picture, Picture1.ScaleWidth, 0, -Picture1.ScaleWidth, Picture1.ScaleHeight, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, &HCC0020 End Sub Private Sub Command3_Click() On Error Resume Next Picture1.PaintPicture Picture1.Picture, 0, Picture1.ScaleHeight, Picture1.ScaleWidth, -Picture1.ScaleHeight, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, &HCC0020 End Sub Private Sub Command4_Click() On Error Resume Next Picture1.PaintPicture Picture1.Picture, Picture1.ScaleWidth, Picture1.ScaleHeight, -Picture1.ScaleWidth, -Picture1.ScaleHeight, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, &HCC0020 End Sub Private Sub Command5_Click() On Error Resume Next Text2 = Val(Text2) Picture1.PaintPicture Picture1.Picture, 0, 0, Picture1.ScaleWidth * Text2 / 100, Picture1.ScaleWidth * Text2 / 100, 0, 0, Picture1.ScaleHeight, Picture1.ScaleHeight, &HCC0020 End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path ChDir File1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive ChDrive Dir1.Path End Sub Private Sub File1_Click() On Error Resume Next Picture1.Picture = LoadPicture(File1.filename) End Sub Private Sub Form_Load() Text1 = "*.bmp;*.wmf;*.ico;*.dib;*.gif;*jpg;*.emf;*.cu r;*" Picture1.AutoSize = True Picture1.AutoRedraw = True Text2 = 50 End Sub Private Sub Picture1_Click() End Sub Private Sub Text1_Change() On Local Error Resume Next File1.Pattern = Text1 End Sub

__________________