Label_FlashName.Visible = False
     Label_ScrollName.Caption = “"
     nEnableSecond = 0
     '定义起始秒数
     ReDimNameArray
     '获得文本中的名字和打乱名字顺序
     nScrollStep = 5 '设定滚动字的步长
     nScrollWidth = Label_Congruation.Left
     '设定title的移动宽度
     bScrollState = False
     '设定缺省的开始滚动方向为向左
     m_nSelectNum = 0
     '初始化被选定数为0
     Init
     '初始化本程序的界面
End Sub
Private Sub Timer_FlashName_Timer() '闪动中奖者姓名
     If Label_FlashName.Visible = True Then
       Label_FlashName.Visible = False
     Else
       Label_FlashName.Visible = True
     End If
End Sub
Private Sub Timer_ScrollName_Timer() '滚动出现名字
     If m_bIsStart = True Then
       If m_nNameIndex >= MAX_INDEX Then
         m_nNameIndex = 0
       End If
       m_nNameIndex =m_nNameIndex ＋ 1
       If m_strNameArray(m_nNameIndex).bIsSelect = True Then
         If m_nNameIndex < MAX－INDEX Then
           m_nNameIndex =
           m_nNameIndex ＋ 1
         Else
           m_nNameIndex = 0
         End If
       End If
       Label_ScrollName.Caption = m_str
       NameArray(m_nNameIndex).strName
       'End If
     End If
End Sub
    
Private Sub Timer_ScrollTitle_Timer() '滚动“恭喜发财"字样
     If bScrollState = False Then '向左滚
       nScrollStep = 10
       Label_Congruation.Caption = m_strScrollTitleLeft
       If nScrollWidth > 0 Then
         nScrollWidth =
         nScrollWidth － nScrollStep
       Else
         bScrollState = True
       End If
     Else '向右滚
       nScrollStep = －10


       Label_Congruation.Caption =
       m_strScrollTitleRight
       If nScrollWidth < Form_Bouns.ScaleWidth －
               Label_Congruation.Width Then
         nScrollWidth =
         nScrollWidth － nScrollStep
       Else
         bScrollState = False
       End If
     End If
     Label_Congruation.Left = nScrollWidth
     '以下为8秒钟内使“停止"按钮有效
     If nEnableSecond <= 49 Then
       If m_bIsStart = True Then
         nEnableSecond =nEnableSecond ＋ 1
       End If
     Else
       If m_bIsStart = True Then
         Command_Start_Stop.Enabled = True
         nEnableSecond = 0
       End If
     End If
End Sub
     '动态定义数组
Private Sub ReDimNameArray()
     Dim nMaxIndex As Integer
     Dim strMaxIndex As String
     Dim nIndex As Integer
     Dim bIsBegin As Boolean
     bIsBegin = False
     nIndex = 0
     Open App.Path ＋ “\name.txt" For Input As ＃1 '读文件
     Do Until EOF(1)
       If bIsBegin = False Then
         Line Input ＃1, strMaxIndex
         nMaxIndex = Val(strMaxIndex)
         MAX_INDEX = nMaxIndex － 1
         ReDim m_strNameArray(0 To nMaxIndex － 1)
         bIsBegin = True
       Else
         Line Input ＃1, m_strNameArray(nIndex).strName
         m_strNameArray(nIndex).bIsSelect = False
         nIndex = nIndex ＋ 1
       End If
     Loop
     '以下为打乱人员顺序10次
     Dim i As Integer
     Dim j As Integer
     Dim Temp As String
     Dim nRandomNum As Integer
     For j = 0 To 10
       For i = 0 To nMaxIndex － 1


         nRandomNum = ((nMaxIndex － 1) × Rnd) '利用Rnd函数
         Temp = m_strNameArray(i).strName
       m_strNameArray(i).strName = m_strNameArray(nRandomNum).strName
         m_strNameArray(nRandomNum).strName = Temp
       Next i
     Next j
     End Sub
    
Private Sub Init() '读取INI文件
     Dim X As Long
     Dim lpFileName
     Dim Temp As String × 50
     lpFileName = App.Path ＋ “\Sortition.ini"
     X = GetPrivateProfileString(“SYSTEM",“AppTitle",“抽奖程序", Temp, Len(Temp), lpFileName)
     m_strAppTitle = Trim(Temp)
     Temp =“"
     X = GetPrivateProfileString(“SYSTEM", "Title", "欢迎使用抽奖程序", Temp, Len(Temp), lpFileName)
     m_strTitle = Trim(Temp)
     Temp = “"
     X = GetPrivateProfileString(“SYSTEM",“ScrollTitleRight", “恭喜发财!!!", Temp, Len(Temp), lpFileName)
     m_strScrollTitleRight = Trim(Temp)
     X = GetPrivateProfileString(“SYSTEM",“ScrollTitleLeft", “龙年大发!!!", Temp, Len(Temp), lpFileName)
     m_strScrollTitleLeft = Trim(Temp)
     Form_Bouns.Caption = m_strAppTitle
     Label_CompanyTitle.Caption = m_strTitle
     End Sub
     模块源程序：
     '用于读取ini文件的API函数
     Declare Function GetPrivateProfileString Lib “kernel32" Alias “GetPrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
     Public Type MyName
       strName As String
       bIsSelect As Boolean
     End Type
     由于程序利用的windows ini文件保存一些标题信息，因而可以方便的修改使用环境,及标题内容。
     见ini文件内容：
   [SYSTEM]
       ;应用程序的form名称
       AppTitle=“风云电脑抽奖Test"
       ;窗口的内的标题(限9个字)
       Title=“大抽奖"
       ;右滚动的文字(仅能为如下格式:XXXX!!!)
          ScrollTitleRight=“恭喜发财!!!"
       ;左滚动的文字(仅能为如下格式:XXXX!!!)
       ScrollTitleLeft=“祝您好运!!!"
如此一个小小的电脑抽奖程序便完成了。
以上程序在VB6.0 Windows98环境下编译通过