Excepción no controlada del tipo ?

Tengo este código para dar visualizacion tipo XP

Public Sub MySub()
' habilitar los estilos XP sin necesidad de crear un .manifest
' para que sea efectivo, en los controles que tengan la propiedad
' FlatStyle, debe asignarse el valor System
' (por defecto tienen el valor: Standard)
Application.EnableVisualStyles()
Application.Run(New Form1)
End Sub

Me da este error

Excepción no controlada del tipo 'System.InvalidOperationException' en
system.windows.forms.dll

Información adicional: No es correcto empezar un bucle de segundo mensaje

un subproceso sencillo. Utilice en su lugar Application.RunDialog o
Form.ShowDialog.