Public Function ReadPicture(ByVal sFilename As String) As FileStream
        Dim f As FileStream = New FileStream(sFilename, FileMode.Open)
        Me.picAnzeige.Image = New System.Drawing.Bitmap(f)
        ReadPicture = f
        Return ReadPicture
        f.Close()
    End Function

Me.picAnzeige.Image = New System.Drawing.Bitmap(ReadPicture("C:\going.gif"))