模拟led的跑马灯，帮忙看看此代码。。。

Question

模拟led的跑马灯，这段代码画出LED背景，请问，我如何改变背景颜色？能透明吗？Private Sub DrawBackground()
  With UserControl
        .AutoRedraw = True
        Dim hOld As Long
        Dim hTmpBrush As Long, hTBmpBack As Long
        'hTBmpBack = LoadBitmapBynum(App.hInstance, dwBg)
        hTBmpBack = .picBlankCol.Picture.Handle
        hTmpBrush = CreatePatternBrush(hTBmpBack)
        hOld = SelectObject(hDC, hTmpBrush)
        PatBlt .hDC, 0, 0, .ScaleWidth, .ScaleHeight, PATCOPY
        DeleteObject hTmpBrush
        SelectObject hDC, hOld
        'm_Color = CTL_WHITE
        'Call draw_string("书林跋涉", 0, 10)
        .AutoRedraw = False
  End With
End Sub

Answer 1

没看明白......
你做的什么样的控件？Up........