Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim file As String
        Dim files() As String = System.IO.Directory.GetFiles("C:\Bilder")
        Dim bi As Bitmap
        Dim index As Integer
        For Each file In files
            If file.ToUpper.EndsWith(".JPG") Then
 
                bi = New Bitmap(Bitmap.FromFile(file), 200, 200)
                bi.Save("e:\btest\test" & index & ".bmp")
                bi.Dispose()
                index += 1
 
            End If
 
        Next
    End Sub