Public Class Form1
    Private mImages As New List(Of ImageInfo)
    Private mRandom As New Random(Date.Now.Millisecond)
    Private mActualImage As ImageInfo
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim path As New IO.DirectoryInfo("p:\ath")
        Dim files() As IO.FileInfo = path.GetFiles("*.png", _
          IO.SearchOption.TopDirectoryOnly)
        For Each file As IO.FileInfo In files
            mImages.Add(New ImageInfo(file))
        Next
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        If mImages.Count > 0 Then
            If mActualImage IsNot Nothing Then
                If TextBox1.Text = mActualImage.Keyword Then : TextBox2.Text = _
                  "Richtig"
                Else : TextBox2.Text = mActualImage.Keyword
                End If
                TextBox1.Text = String.Empty
            End If
 
            Dim rndIndex As Integer = mRandom.Next(0, mImages.Count - 1)
            mActualImage = mImages(rndIndex)
            PictureBox1.Image = mActualImage.Image
            TextBox1.Focus()
        End If
    End Sub
 
End Class
 
 
Public Class ImageInfo
    Private mFile As IO.FileInfo
    Private mImage As Image
    Private mKeyword As String
 
    Public ReadOnly Property File() As IO.FileInfo
        Get
            Return mFile
        End Get
    End Property
    Public ReadOnly Property Keyword() As String
        Get
            Return mKeyword
        End Get
    End Property
    Public ReadOnly Property Image() As Image
        Get
            Return mImage
        End Get
    End Property
 
    Public Sub New(ByVal file As String)
        Me.New(New IO.FileInfo(file))
    End Sub
    Public Sub New(ByVal file As IO.FileInfo)
        mFile = file
        mImage = Image.FromFile(mFile.FullName)
        mKeyword = IO.Path.ChangeExtension(mFile.Name, "")
        If mKeyword.EndsWith("."c) Then mKeyword = mKeyword.Remove( _
          mKeyword.Length - 1)
    End Sub
End Class