Imports System
Imports System.Windows.Forms
Imports System.Drawing
Public Module modmain
   Sub Main()
      'The KPD-Team 2001
      'URL: http://www.allapi.net/dotnet/
      'E-Mail: KPDTeam@Allapi.net
      Dim theForm as MainForm = new MainForm()
      theForm.Size = new Size(500, 350)
      theForm.Text = "Visual Basic.NET"
      theForm.ShowDialog()
   End Sub
End Module
Public Class MainForm
Inherits Form
   Protected Overrides Sub OnPaint(e as PaintEventArgs)
      Dim MyIcon as Icon = new Icon("c:\someicon.ico")
      e.Graphics.DrawIcon(MyIcon, 0, 0)
   End Sub
End Class

Close this window