在VB（Visual Basic）中创建一个闪烁的圣诞树屏保程序，你需要使用图形处理功能来绘制和动画化圣诞树。以下是一个简单的示例代码，它使用了VB6.0的图形处理功能来创建一个基本的圣诞树，并且可以通过调整代码来使其闪烁。
```vb
Option Explicit
Dim screenhwnd As Long, screendc As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nH As Long)
Private Sub Form_Load()
' 初始化屏幕句柄和画布
screenhwnd = GetForegroundWindow()
screendc = GetDC(screenhwnd)
' 绘制圣诞树
DrawChristmasTree(screendc, 100, 500, 300, 100)
' 释放画布
ReleaseDC screenhwnd, screendc
End Sub
Private Sub DrawChristmasTree(dc As Long, x As Long, y As Long, width As Long, height As Long)
Dim i As Integer
Dim green As Long, brown As Long
green = RGB(0, 255, 0)
brown = RGB(165, 42, 42)
' 绘制树干
BitBlt dc, x, y, width, height, 0, 0, 0, 0, green
' 绘制树叶
For i = 1 To height
' 绘制左侧树叶
BitBlt dc, x, y + i, width / 2, i, 0, height - i, 0, height - i, green
' 绘制右侧树叶
BitBlt dc, x + width / 2, y + i, width / 2, i, width / 2, height - i, height - i, height - i, green
Next i
End Sub
```
这个代码片段创建了一个简单的圣诞树，它使用`BitBlt`函数从标准设备上下文（HDC）复制图像到屏幕设备上下文。圣诞树的树干和树叶都是用绿色绘制的，你可以根据需要调整颜色和大小。
要使圣诞树闪烁，你可以使用一个计时器来周期性地改变圣诞树的可见性，或者使用动画函数来移动圣诞树的各个部分，从而创建闪烁效果。这通常涉及到在`Form_Timer`事件处理器中编写代码来更新屏幕内容。
请注意，这个代码示例是针对VB6.0编写的，如果你使用的是更现代的VB版本（如VB.NET），则需要使用不同的方法和库来实现相同的功能。此外，要创建一个真正的屏幕保护程序，你可能需要编写额外的代码来处理屏幕保护程序的逻辑，例如在一段时间不活动后启动屏保。