اولا بهتر بود اولش می گفتید که دارید در محیط بازی اینکارو انجام میدید!
دوما چه طور از شی device که مقدار دهی نشده و خودتان همینطوری تعریف کردید این چنین انتظاری دارید؟!
اگر در حال نوشتن بازی هستید حتما یک متغییر سراسری از نوع Device دارید بنابراین خط چهارم کدی که گذاشتین رو پاک کنید و به جای Device از نام آن متغیر سراسری استفاده کنید.
و اگر هم شی ای از نوع Device ندارید(که بعید می دانم) باید همون Device ای که در خط 4 نوشته اید را مقداردهی کنید
کد:
Dim device = New Device(0, DeviceType.Hardware, Me, CreateFlags.SoftwareVertexProcessing, New PresentParameters() {New PresentParameters() With { _
.Windowed = True, _
.SwapEffect = SwapEffect.Discard _
}})
ولی باز هم بگویم که در بازی دنبال یک متغییر سراسری از این نوع باشید
موفق باشید