form3.frm

OpenPlayer代码

VERSION 5.00
Begin VB.Form Form3 
   BackColor       =   &H00000000&
   BorderStyle     =   0  'None
   Caption         =   "SuperScreenSaver1.0 预览"
   ClientHeight    =   1635
   ClientLeft      =   4350
   ClientTop       =   2025
   ClientWidth     =   2190
   Icon            =   "Form3.frx":0000
   LinkTopic       =   "Form3"
   ScaleHeight     =   1635
   ScaleWidth      =   2190
   ShowInTaskbar   =   0   'False
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'小窗口

Private Sub Form_DblClick()
    End
End Sub

Private Sub Form_Load()
    Dim i As Integer
    Dim oControl As Object
    For i = 1 To 30
             Set oControl = Controls.Add("VB.label", "L" & i)
      
              With oControl
                  .Left = -60 + i * 7
                  .Top = 100 + i * 7
                  .ForeColor = RGB(255 - (5 * i / 2) - 10, 255 - (5 * i / 2) - 10, 255 + i - 10)  '交换R、G、B各值位置会有不同效果
                  .AutoSize = True
                  .BackStyle = 0
                  .FontSize = "20"
                  .FontBold = True
                  .Caption = "ＳＵＰＥＲ"
                  .Visible = True
                  DoEvents
                End With
    Next
    For i = 1 To 30
        Set oControl = Controls.Add("VB.label", "Ll" & i)
        With oControl
                 .Left = 50 + i * 5
                 .Top = 800 + i * 5
                 .ForeColor = RGB(255 - (5 * i / 2) - 10, 255 - (5 * i / 2) - 10, 255 + i - 10)  '交换R、G、B各值位置会有不同效果
                 .AutoSize = True
                 .BackStyle = 0
                 .FontSize = "15"
                 .FontBold = True
                 .Caption = "Screen Saver "
                 .Visible = True
                 DoEvents
        End With
    Next
End Sub