Microsoft Cert Test 70-306, VB.NET Apps

Public Sub main()

'visual basic geme programming

'create reference to game window
Dim window As Form

'create reference to display surface
Dim surface As PictureBox

'define the standard screen resolution
Public Enum RESOLUTION
     Res320x240 = 1
     Res640x480 = 2
     Res800x600 = 3
     Res1024x768 = 4
     End Enum
     
     'function createwindow
     'create a reference to an existing form and initialize
     'the form to one of the standard screeb resolution
     
     Public Function CreateWindow(ByRef frm As Form, _
     ByVal res As RESOLUTION) As Form
     
     'create the reference
     Set CreateWindow = frm
     
     'set up the form
     
     frm.AutoRedraw = False
     frm.BorderStyle = 1
     frm.ClipControls = False
     frm.KeyPreview = True
     frm.ScaleMode = 3
     
     'rsize the form to a standard resolution
     Select Case res
     Case Res320x240
     frm.Width = 320 * Screen.TwipsPerPixelX
     frm.Width = 240 * Screen.TwipsPerPixelY
     
    Case Res640x480
     frm.Width = 640 * Screen.TwipsPerPixelX
     frm.Width = 480 * Screen.TwipsPerPixelY
      
     Case Res800x600
      frm.Width = 800 * Screen.TwipsPerPixelX
       frm.Width = 600 * Screen.TwipsPerPixelY
      
      Case Res1024x768
       frm.Width = 1024 * Screen.TwipsPerPixelX
       frm.Width = 768 * Screen.TwipsPerPixelY
       
      End Select
      
      End Function
      
      
      'function createsurface
      'create a reference to an existing picturebox ans
      'resize the control to the parent form.
      
      Public Function CreateSurface(ByRef window As Object) As PictureBox
      'create the reference
      Set CreateSurface = window.surface
      
      'set up the surface
      CreateSurface.AutoRedraw = False
      CreateSurface.BorderStyle = 0
      CreateSurface.ClipControls = False
      CreateSurface.ScaleMode = 3
      CreateSurface.BackColor = RGB(0, 0, 0)
      
      'resize the surface to the parent window
      CreateSurface.Left = 2
      CreateSurface.Top = 2
      CreateSurface.Width = window.ScaleWidth - 4
      CreateSurface.Height = window.ScaleHeight - 4
      
      End Function
      
      
      'sub main
      'starting point for the program
      
      
      Public Sub main()
      Dim X As Long
      Dim Y As Long
      Dim Count As Long
      Dim Color As Long
      
      'initialize the game window
      Set window = CreateWindow(Form1.Res800x600)
      window.Caption = "Chunky Pixel"
      
      'initialize the display surface
      Set surface = CreateSurface(window)
      
      'display the game window
      window.Show
      DoEvents
      
      'draw 100.100 chunky pixels
      Randomize
      surface.DrawWidth = 5
      For Count = 1 To 100000
      X = surface.ScaleWidth * Rnd
      Y = surface.ScaleHeight * Rnd
      Color = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
      surface.PSet (X, Y), Color
      Next Count
      
      'delete the object reference
      Set surface = Nothing
      Set window = Nothing
      
End Sub