Vb Net Lab Programs For Bca Students Fix Jun 2026

' Button Click Event Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim num1 As Integer = Val(TextBox1.Text) Dim num2 As Integer = Val(TextBox2.Text) Swap(num1, num2) ' Now this modifies the original variables TextBox1.Text = num1 TextBox2.Text = num2 End Sub