[Solved]Dark GDK[Help]

This is ,like GDK.Net C# template, but now for VisualBASIC.Net users.
This is an easy to use Clean template for coding your games or application.

I sincerely recommend that you don't Copy/Paste the following, instead download the whole package. See end of article.

After you've download it, extract it to somehwere
Than run visual BASIC 2008 express and loadup the project-solution file , which is in the extracted map.

You can start you coding right away!
And to make this a Template in Visual BASIC Express everytime you want to code a VB-Application, do the following:

1 - Go to ' File '
2 - Click on 'Export Template'
3 - Click 'Next'
4 - Than Click on 'Finish'
Now everytime whenever you want to code a GDK.Net project you now have 2 GDK.Net Template options to choose from, These are:
1 - The Standard GDK-Template whith bunch of codes you realy will not use
2 - This Clean Template, See following listing, which is the main code where you put things together.


'(removed website)
'(template Designer = Yerrel)

Imports DarkGDK
Imports DarkGDK.IO
Imports DarkGDK.Core
Imports DarkGDK.Text
Imports DarkGDK.Camera
Imports DarkGDK.Engine
Imports DarkGDK.Basic2D
Imports DarkGDK.Basic3D
Imports System
Imports System.Windows.Forms
Imports System.Drawing.Color

Class GDK_VB_Template

Public Sub New()
REM Put all your First run initialization here.
REM things like variables and so on, things that needs to be
REM set on the very first run.
REM Put all your GDK startup requirements here!

REM Start GDK.Net Engine
InitializeGDK()
REM Set displaymode
Display.SetDisplayMode(Display.ScreenWidth(), Display.ScreenHeight(), Display.ScreenDepth())
REM Create our application window, where nice things are displayed
Display.SetWindowSize(640, 480)
REM Set BackgroundColor
Camera.DefaultCamera.ColorBackdrop(DarkBlue) : Camera.DefaultCamera.BackdropOn()
REM Set Title for our application Window
Display.WindowTitle = "GDK.Net VB Template (c).:Binary-Coder.Com"
REM set font
Text.SetFont("verdana")
REM Hide mouse
DarkGDK.IO.Mouse.Hide()
REM Set Sync rate
Core.SyncOn() : Core.SyncRate(66)
End Sub

End Class

Module Module1

Sub Main()
Dim g_State As New GDK_VB_Template()
MessageBox.Show("(c).:Binary-Coder.Com", "GDK.Net VB Template")

REM Game Main loop
While LoopGDK()
REM From here on you place your codeflow, call subs or whatever.
Text.ShowText(10, 10, "Hello world")
Sync()
End While

End Sub

End Module