Visual Basic - Contar Imagenes de una carpeta

Hola a todos, mi consulta es la siguiente, deseo contar las imagenes que contiene una carpeta determinada (puede ser jpg,bmp,gif etc). Tengo el siguiente codigo:

Dim FS As New FileSystemObject
Archivos = FS.GetFolder("C:WINNT").Files.Count

pero me sirve para contar todos los archivos y yo solo quiero contar las imagenes.

de antemano muchas gracias

puedes hacer un bucle para que recorra la carpeta y cuente los archivos que tienen las extensiones que necesitas.

Jaime, gracias por la respuesta, pero no tengo idea como se hace la solucion que me das, me podrias ayudar con el codigo?

atento a tus comentarios

hay un control en el que se puede mostrar los archivos que hay en una carpeta, pero como no tengo vb en este momento no me acuerdo. pero yo uso el siguiente metodo en excel para leer los archivos de una carpeta y obtener su nombre

Sub RepasarCarpeta()
'en este ejemplo sacamos los nombres de los archivos de la carpeta.
Dim i As Long
'dimensiones
Dim strArchivoExcel As String
Dim strNombreCarpeta As String

'carpeta a repasar
strNombreCarpeta = "C:\winnt\"

'preparar carpeta
ChDir strNombreCarpeta
strArchivoExcel = Dir("*.xls")
i = 7

Hoja1.Range("C" & i & ":C100").Clear

'repasamos los archivos de la carpeta
Do While strArchivoExcel <> ""
Hoja1.Range("C" & i).Value = strArchivoExcel
strArchivoExcel = Dir
i = i + 1
Loop

End Sub

espero que esto tambien funcione en vb6

OK, voy a revisar y te comento, muchas gracias por tu respuesta

saludos