在VB中制作抽奖程序，你可以按照以下步骤进行：
界面设计
新建一个标准的EXE工程。
在Form1窗体中放置所需的控件，如定时器（Timer1）、文本框（Label1, Label2）、命令按钮（Command1, Command2）和控件数组（Label3（0）—Label3（6））等。
属性设置
对Label3控件数组中的所有元素设置相同的属性。
代码编写
实现原理：当用户单击“开始”按钮时，打开定时器，利用定时器控件同时产生两个随机数，比较这些随机数与之前的中奖号码，若相同则退出，若不同则更新中奖号码。当产生指定数量的中奖号码后，关闭定时器，停止产生随机数。
函数简介：
`Randomize`：初始化随机数的种子数。
`Int`：返回一个非整形数字取整后的整数。
`Rnd`：产生一个0〜1之间的随机数。
`Qbcolor`：返回参数（0〜15）对应的颜色。
`Val`：将一个字符形变量转化为一个数值型变量。
`Format`：格式化一个表达式。
完整代码示例
```vb
Dim sy As Integer
Private Sub Command1_Click（）
' 清除Label3控件数组的内容
For i = 0 To 6
Label3（i）.Caption = ""
Next i
' 开始抽奖
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer（）
' 产生一个1位数的随机数
For i = 0 To 4
Label1（i）.Caption = Int（Rnd（） * 10）
Next i
' 检查是否已产生7个中奖号码
Dim k As Integer
k = 0
For i = 0 To 6
If Label3（i）.Caption <> "" Then
k = k + 1
End If
Next i
If k >= 7 Then
Timer1.Enabled = False
End If
End Sub
```
其他功能
从数据库读取数据：可以编写代码从数据库读取相关数据并显示在列表框中，然后根据输入的中奖人数进行抽奖。
使用数组或工作表：可以将抽奖池设定为数组或工作表单元格内容，每次抽取时遍历数组或工作表，确保不重复抽取。
通过以上步骤，你可以创建一个简单的VB抽奖程序。根据具体需求，你可以进一步扩展和优化程序的功能和界面。