VB6:
Dim iro As Long
iro = GetPixel(Me.hdc, x, y)            'たったこれだけ。
　
VB.NET/VB2005:
Dim gp As Graphics = Me.CreateGraphics  'フォームのGraficsを作成
Dim hDC As IntPtr = gp.GetHdc()         'そのデバイスコンテキストを取得
Dim iro As Long = GetPixel(hDC, x, y)   'やっと使える

Dim recCount as Long
Protected Sub SqlDataSource1_Selected(ByVal sender As Object, _
           ByVal e As System.Web.UI.WebControls.SqlDataSourceStatusEventArgs)
    recCount = e.AffectedRows
End Sub

Dim d1 As Date
d1 = Now
Text1.Text = d1
Label4.Caption = "Val : " & Val(d1) & vbCrLf & "CDbl : " & CDbl(d1)
Text2.Text = Date
Label5.Caption = "Val : " & Val(Date) & vbCrLf & "CDbl : " & CDbl(Date)
Dim d2 As Date
Text3.Text = d2
Label6.Caption = "Val : " & Val(d2) & vbCrLf & "CDbl : " & CDbl(d2)

Dim d1 As DateTime = Now
TextBox1.Text = d1
Label4.Text = "Val : " & Val(d1) & vbCrLf & _
              "ToOADate : " & d1.ToOADate & vbCrLf & _
              "ToBinary : " & d1.ToBinary
TextBox2.Text = Today
Label5.Text = "Val : " & Val(Today) & vbCrLf & _
              "ToOADate : " & Today.ToOADate & vbCrLf & _
              "ToBinary : " & Today.ToBinary
Dim d2 As Date
TextBox3.Text = d2
Label6.Text = "Val : " & Val(d2) & vbCrLf & _
              "ToOADate : " & d2.ToOADate & vbCrLf & _
              "ToBinary : " & d2.ToBinary

'--上記２の処理--
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
              Handles Me.Load
    If Not IsPostBack Then
        ddlOrder.Items.Clear()
        ddlOrder.Items.Add(New ListItem("全て", ""))
        ddlOrder.AppendDataBoundItems = True
    End If
End Sub
　
'--上記３の処理--
Private Sub ddlOrder2_DataBound(ByVal sender As Object, ByVal e As System.EventArgs) _
            Handles ddlOrder2.DataBound
    If ddlOrder2.Items.Count = 0 Or _
        (ddlOrder2.Items.Count > 0 AndAlso ddlOrder2.Items(0).Text <> "全て") Then
        ddlOrder2.Items.Insert(0, New ListItem("全て", ""))
    End If
End Sub