Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
 
        If ComboBox1.SelectedItem.ToString = ("Notepad an") Then
            Dim notespad As New Notespad
            Me.Controls.Add(notespad)
            notespad.Location = New Point(55, 55)
        Else
            Me.Controls.Remove(Notespad)
 
        End If
 
 
    End Sub