Sub Main()
   Dim frmSample as New Form1()
   System.Windows.Forms.MessageBox.Show( _
      "The application is running now, but no forms have been shown.")
   frmSample.Text = "Running Form"
   frmSample.ShowDialog()
End Sub