Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim f As New Form
        Dim t1 As New TextBox
        Dim LV As New ListView
        f.Size = New Size(400, 400)
        t1.Top = 200
        t1.Left = 200
        f.Controls.Add(t1)
        f.Controls.Add(LV)
        f.Show()
        '... usw
    End Sub

fg viperbone