Sub Button3Click(ByVal sender As Object, ByVal e As EventArgs)
		Dim Min As Long = 0
		Dim Max As Long = 0
		Dim C As Long = 0
		Dim I As Long
		For I = 0 To ListView1.Items.Count - 1
			If radioButton1.Checked = True Then
				' 
				' Hierum gehts. Das funktioniert nicht.
				' 
				C = listView1.Items.Item(I).SubItems(1).Text.Trim()
 
 
				If I = 0 Then
					Min = C
					Max = C
				Else
					If C > Max Then
						Max = C
					ElseIf C < Min Then
						Min = C
					End If
				End If
			ElseIf radioButton2.Checked = True Then
				' 
				' Hierum gehts. Das funktioniert nicht.
				' 
				Dim G As Object = listView1.Items(I).SubItems(1).Text.Trim()
 
 
				C += G
				If I = 0 Then
					Min = C
					Max = C
				Else
					If C > Max Then
						Max = C
					ElseIf C < Min Then
						Min = C
					End If
				End If
			End If
			Dim grp As Graphics = Graphics.FromImage(CType(CurrentImage,Image))
			CType(grp,Graphics).DrawString(Max,Me.Font,Brushes.Green,0,0)
			CType(grp,Graphics).DrawString(Min,Me.Font,Brushes.Red,0,220)
			pictureBox1.BackgroundImage = CType(CurrentImage,Image)
			pictureBox1.Update()
		Next
	End Sub