主题：麻烦看看啥问题吧

Button4

For Each File1 As String In FileSys.GetFiles("D:\shuiyin\")
    Dim s As String = FileSys.GetName(File1)
    Dim img As Image = getimage(file1)
   
    If img IsNot Nothing Then
        Dim g As Graphics = Graphics.FromImage(img)
        Dim o1 As String= s.SubString(0,s.LastIndexOf("."))
        Dim fnt As New Font("georgia",25)
        Dim sz As Object = g.MeasureString(s, fnt)
        g.DrawString(o1,fnt,Brushes.MediumSpringGreen, img.Width - sz.Width - 20, Img.Height - sz.Height - 20)
        img.Save(file1)
        g.Dispose()
       
    End If
Next