مشکل در عکس گرفتن از Display

[.:KeihanCPU:.]

سلام.
من از این کد برای عکس گرفتن از صفحه نمایش استفاده میکنم.


Private Sub GetPicture()
Dim I As Integer
I = Screen.PrimaryScreen.WorkingArea.Width
Dim h As Integer = Screen.PrimaryScreen.WorkingArea.Height
Dim bim As New Bitmap(I, h)
Dim g As Graphics = Graphics.FromImage(bim)
Dim siz As Drawing.Size
Dim PT As String
siz.Width = I
siz.Height = h
g.CopyFromScreen(0, 0, 0, 0, siz)
PT = GetSetting("SysPro", "Setting", "SavePath")
For q = 1 To 1000000
If IO.File.Exists(PT & "\" & q & ".jpg") = False Then
bim.Save(PT & "\" & q & ".jpg")
Exit For
End If
Next

اما این کد و کدهای مشابه نمیتونن از فیلمهایی که مثلا در مدیا پلیر یا هر نرم افزار دیگه عکس بگیرن و تصویر فیلم رو سیاه نشون میده.
میخواستم بدونم علت چیه؟و برای حل این مشکل چه باید کرد