银行取号排队代码vb

银行取号排队代码示例（VB版）：

Imports System
Public Class Form1
    Dim number As Integer = 0

    Private Sub btn_GetNumber_Click(sender As Object, e As EventArgs) Handles btn_GetNumber.Click
        number += 1
        MessageBox.Show("您的号码是：" & number.ToString())
    End Sub

    Private Sub btn_CallNext_Click(sender As Object, e As EventArgs) Handles btn_CallNext.Click
        If number = 0 Then
            MessageBox.Show("当前无号，请先取号！")
        Else
            number -= 1
            MessageBox.Show("请" & number.ToString() & "号到柜台办理业务。")
        End If
    End Sub

End Class

以上是一个简单的银行取号排队代码示例（VB版）。该示例中，使用一个整型变量`number`来记录当前的号码。当用户点击取号按钮时，号码自动加1，并通过`MessageBox`显示出来。当柜台点击呼叫下一位按钮时，判断当前是否有号码，如果有则号码减1，并通过`MessageBox`呼叫下一位号码。

在实际项目中，还可以进一步拓展，例如可通过数据库来存储号码，实现多窗口同时排队等功能。以上代码仅作为简单示例，供参考。