以下是一個簡單的VB抽獎程序制作步驟：
打開VB，新建一個Windows Forms應用程序。
在窗體上添加一個Label控件，用于顯示抽獎結果。
添加一個Button控件，用于觸發抽獎操作。
在Button的Click事件中編寫抽獎邏輯，可以使用Random類生成隨機數，根據隨機數確定中獎結果。
將中獎結果顯示在Label控件上。
以下是一個示例代碼：
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim random As New Random()
Dim result As Integer = random.Next(1, 101) '生成1-100之間的隨機數
If result <= 10 Then '10%的概率中獎
Label1.Text = “恭喜您中獎了！”
Else
Label1.Text = “很遺憾您沒有中獎。”
End If
End Sub
這是一個簡單的抽獎程序，可以根據需求進行擴展和優化。
