在ASP.Net (VB)中，可以使用AJAX和VB代码来实现前一个下拉列表中的数据填充下一个下拉列表的功能。

以下是一个示例代码，演示如何实现这一功能：

首先，在aspx页面中添加两个下拉列表控件：

接下来，在代码文件中添加以下VB代码：

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    If Not IsPostBack Then
        ' 在页面首次加载时，填充第一个下拉列表
        FillCountryDropDown()
    End If
End Sub

Protected Sub FillCountryDropDown()
    ' 填充第一个下拉列表
    ' 这里可以使用数据库查询或其他方式获取国家数据
    ' 然后将数据绑定到下拉列表
    ddlCountry.Items.Clear()
    ddlCountry.Items.Add(New ListItem("USA", "USA"))
    ddlCountry.Items.Add(New ListItem("Canada", "Canada"))
    ddlCountry.Items.Add(New ListItem("UK", "UK"))
End Sub

Protected Sub FillCityDropDown(ByVal country As String)
    ' 根据选择的国家，填充第二个下拉列表
    ' 这里可以使用数据库查询或其他方式获取对应国家的城市数据
    ' 然后将数据绑定到下拉列表
    ddlCity.Items.Clear()
    Select Case country
        Case "USA"
            ddlCity.Items.Add(New ListItem("New York", "New York"))
            ddlCity.Items.Add(New ListItem("Los Angeles", "Los Angeles"))
            ddlCity.Items.Add(New ListItem("Chicago", "Chicago"))
        Case "Canada"
            ddlCity.Items.Add(New ListItem("Toronto", "Toronto"))
            ddlCity.Items.Add(New ListItem("Vancouver", "Vancouver"))
            ddlCity.Items.Add(New ListItem("Montreal", "Montreal"))
        Case "UK"
            ddlCity.Items.Add(New ListItem("London", "London"))
            ddlCity.Items.Add(New ListItem("Manchester", "Manchester"))
            ddlCity.Items.Add(New ListItem("Birmingham", "Birmingham"))
    End Select
End Sub

Protected Sub ddlCountry_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
    ' 当第一个下拉列表的选择项改变时，填充第二个下拉列表
    FillCityDropDown(ddlCountry.SelectedValue)
End Sub

在上述代码中，Page_Load事件用于在页面首次加载时填充第一个下拉列表。FillCountryDropDown方法用于填充第一个下拉列表的数据。FillCityDropDown方法根据选择的国家填充第二个下拉列表的数据。ddlCountry_SelectedIndexChanged事件在第一个下拉列表的选择项改变时触发，调用FillCityDropDown方法来填充第二个下拉列表。

这样，当选择第一个下拉列表中的国家时，第二个下拉列表将动态填充相应国家的城市数据。