Function LoadImage(ByVal PicFile As String) As Bitmap
		Dim oStream As New System.IO.FileStream(PicFile, IO.FileMode.Open)
		Dim oBitmap As Bitmap
		oBitmap = New Bitmap(oStream)
		oStream.Close()
		LoadImage = oBitmap
	End Function