From 313121fcc95bd44f4ff40229d034f224a5300754 Mon Sep 17 00:00:00 2001
From: Daniel Grunwald <daniel@danielgrunwald.de>
Date: Wed, 18 Jul 2007 07:22:07 +0000
Subject: [PATCH] Fixed VB Direct3D project template.

git-svn-id: svn://svn.sharpdevelop.net/sharpdevelop/branches/2.1@2607 1ccf3a8d-04fe-1044-b7c0-cef0b8235c61
---
 data/templates/project/VBNet/Direct3DProject.xpt | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/data/templates/project/VBNet/Direct3DProject.xpt b/data/templates/project/VBNet/Direct3DProject.xpt
index 9a8ec2aee4..06703563f0 100644
--- a/data/templates/project/VBNet/Direct3DProject.xpt
+++ b/data/templates/project/VBNet/Direct3DProject.xpt
@@ -41,11 +41,14 @@
 		
 		<PropertyGroup>
 			<OutputType>WinExe</OutputType>
+			<StartupObject>${StandardNamespace}.MainClass</StartupObject>
 		</PropertyGroup>
 		
 		<Files>
 			<File name="MainClass.vb"><![CDATA[${StandardHeader.VBNET}
 
+Imports System.ComponentModel
+
 ' This is the main class of my Direct3D application
 Public Class MainClass
 	Inherits Form
@@ -104,7 +107,7 @@ Public Class MainClass
 	
 	' This method renders the scene
 	Protected Overridable Sub Render()
-		If Not device Is Nothing
+		If Not device Is Nothing Then
 			device.Clear(ClearFlags.Target, Color.Blue, 1.0f, 0)
 			device.BeginScene()
 			
@@ -131,7 +134,7 @@ Public Class MainClass
 	
 	Protected Overrides Sub OnKeyPress(e As KeyPressEventArgs)
 		MyBase.OnKeyPress(e)
-		If AscW(e.KeyChar) = CInt(Keys.Escape)
+		If AscW(e.KeyChar) = CInt(Keys.Escape) Then
 			Close()
 		End If
 	End Sub
@@ -140,7 +143,7 @@ Public Class MainClass
 	Shared Sub Main()
 		Dim mainClass As New MainClass()
 		
-		If Not mainClass.InitializeGraphics()
+		If Not mainClass.InitializeGraphics() Then
 			MessageBox.Show("Error while initializing Direct3D")
 			Return
 		End If