Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim objClass As IntShwoFile Static Counter As Integer Select Case Counter Case 2 Counter = 3 objClass = New ClsB Case 3 Counter = 1 objCla…