Сначала добавим в класс формы метод OnResetDevice:
PublicSub OnResetDevice(ByVal sender As Object, _
ByVal e As EventArgs)
Dim dev As Device = CType(sender, Device)
' Показываем два стороны треугольника.
dev.RenderState.CullMode = Cull.None
' Отключаем световые эффекты.
dev.RenderState.Lighting = FalseEndSub'OnResetDevice
Тут мы устанавливам различные параметры показа - в частности указываем, что надо показывать обе стороны треугольника (хотя сейчас это не очень актуально - наш треугольник пока не вращается) и, кроме того, мы указываем, что никаких световых эффектов у нас не будет.
Теперь этод метод надо где-то вызвать. Мы укажем, что наш метод будет обработчиком для DeviceReset нашей видеокарты (которая программно представляется объектом device типа Microsoft.DirectX.Direct3D.Device). Это мы укажем в методе InitializeGraphics: