' topmostgd.vb Imports System Imports System.Data Imports System.Windows.Forms Public Class TopMostDataGridForm Inherits Form WithEvents DataGrid1 As DataGrid Shared Sub Main() Application.Run(New TopMostDataGridForm) End Sub Public Sub New() Me.DataGrid1 = New DataGrid Me.DataGrid1.Dock = DockStyle.Fill Me.Controls.Add(Me.DataGrid1) Me.Text = "最前面表示DataGrid" Me.TopMost = True End Sub Private Sub TopMostDataGridForm_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load ' Insider.NETのRSS情報をDataGridに表示 Dim ds As DataSet = New DataSet ds.ReadXml("http://www.atmarkit.co.jp/rss/fdotnet/rss2dc.xml") Me.DataGrid1.DataSource = ds.Tables("item") End Sub Private Sub DataGrid1_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles DataGrid1.Paint Me.TopMost = True End Sub End Class ' コンパイル方法:vbc /r:System.dll /r:System.Windows.Forms.dll /r:System.Data.dll /r:System.Xml.dll topmostdg.vb