VB窗体特效---上深下浅的窗体背景

Private Sub Form_Paint()
        Dim i As Integer
        ScaleMode = 3
        For i = 0 To 255
              Line (0, i)-(Me.Width, i), RGB(i, i, 255)
        Next i
End Sub

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: VBVB 特效特效 窗体窗体
相关日志: