Dim crReportDocument As New
rystalDecisions.CrystalReports.Engine.ReportDocument
Dim strRecodSelectionFormula As String

crReportDocument.Load("Report1.rpt")

''''passing some strings to edit recordselection formulae,

crReportDocument.RecordSelectionFormula = strRecodSelectionFormula
crReportDocument.Refresh()
CrystalReportViewer1.ReportSource = crReportDocument

CrystalReportViewer1.ReportSource = Nothing
CrystalReportViewer1.ReportSource = crReportDocument

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

        Dim joe As New Name("joe")
        Dim obj As Object = joe
        Debug.WriteLine(joe, "Joe")
        Debug.WriteLine(obj, "Object")
    End Sub
End Class
Public Class Name

    Private ReadOnly m_name As String

    Public Sub New(ByVal name As String)
        m_name = name
    End Sub

    Public Overrides Function ToString() As String
        Return m_name
    End Function

End Class

\\System.Diagnostics.Process.Start("C:\foo.exe")
///

DataGrid1.Width = Me.Width - 100
DataGrid2.Width = Me.Width - 100
DataGrid3.Width = Me.Width - 100

<System.ComponentModel.Description("Get/Set value "& _ 

          "associated with Phone column")> _

    Public Property Phone() As String

        Get

            Me.CheckDisposed()

            If (m_IsNullPhone = True) Then

                Throw New System.Data.StrongTypingException("Cannot "& _ 

                   "get value because it is DBNull", Nothing)

            End If

            Return m_Phone

        End Get

        Set(ByVal Value As String)

            Me.CheckDisposed()

            m_Phone = value

            m_Changed = True

            m_IsNullPhone = False

        End Set

    End Property

Public Sub New(byval Phone as string)

    m_phone = phone

End sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load
        Dim strConn As String
        Dim conn As OleDb.OleDbConnection
        Dim daCustomer As OleDb.OleDbDataAdapter
        Dim ds As DataSet

        ds = New DataSet()
        strConn = "Provider = Microsoft.Jet.OLEDB.4.0;"
        strConn &= "Data Source = Northwind.mdb;"

        conn = New OleDb.OleDbConnection(strConn)

        daCustomer = New OleDb.OleDbDataAdapter("Select * from Customers", 
conn)

        ds = New DataSet

        daCustomer.Fill(ds, "Customers")

        ListBox1.DataSource = ds.Tables("Customers")
        ListBox1.DisplayMember = "CustomerID"
    End Sub
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal 
e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim drv As DataRowView = ListBox1.SelectedValue
        Dim stritem As String = drv.Item("CustomerID").ToString
        Trace.WriteLine(stritem)

        Dim strConn As String
        Dim conn As OleDb.OleDbConnection
        Dim daOrder As OleDb.OleDbDataAdapter
        Dim ds As DataSet

        ds = New DataSet
        strConn = "Provider = Microsoft.Jet.OLEDB.4.0;"
        strConn &= "Data Source = Northwind.mdb;"

        conn = New OleDb.OleDbConnection(strConn)

        daOrder = New OleDb.OleDbDataAdapter("Select * from Orders where 
CustomerID = '" & stritem & "'", conn)
        daOrder.Fill(ds, "Orders")
        DataGrid1.DataSource = ds.Tables("Orders")
    End Sub

        Dim gTable As New DataTable("Response")

	Dim t As New DataGridTableStyle(False)
	Dim c As DataGridColumnStyle
	gTable = New DataTable("Response")

        gTable.Columns.Add("PatientID", System.Type.GetType("System.String"))
        gTable.Columns.Add("PatientName", System.Type.GetType("System.String"))
   
        t.MappingName = "Response"

        c = New DataGridTextBoxColumn
        c.MappingName = "PatientID"
        c.HeaderText = "PatientID"
        c.Width = 45
        t.GridColumnStyles.Add(c)

        c = New DataGridTextBoxColumn
        c.MappingName = "PatientName"
        c.HeaderText = "PaientName"
        c.Width = 250
        t.GridColumnStyles.Add(c)

        t.GridColumnStyles.Add(c)
        grdResponse.TableStyles.Clear()
        grdResponse.TableStyles.Add(t)
        grdResponse.DataSource = gTable


	For i = ifirst To gWL.FirstChild.ChildNodes.Count - 1
            lMatch = gWL.FirstChild.ChildNodes(i)
            lRow = gTable.NewRow()
            lRow("PatientID") = GetValue("0010", "0020", lMatch)
            lRow("PatientName") = GetValue("0010", "0010", lMatch)
	Next

        ' Sort datagrid column PatientName
        Dim lDataView As DataView
        lDataView = gTable.DefaultView
        lDataView.Sort = "PatientName ASC"

        If grdResponse.CurrentRowIndex >= 0 Then
        msgbox(grdResponse.DataSource.rows(grdResponse.CurrentRowIndex).Item(0))

grdResponse.DataSource = gTable

grdResponse.DataSource = lDataview

Bitconverter.toint64

    Declare Function LockWorkStation Lib "user32.dll" () As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button1.Click
        LockWorkStation()
    End Sub

<MYCODE>
Sub setVisible(Stage As Integer)

	Select Case Stage
	

	Case 2
		
	    Panel1.visible = false
	    Panel2.visible = true
	    Panel3.visible = false

	Case 3

	    Panel2.visible = false
	    Panel3.visible = true
	    Panel4.visible = false

	Case 4

	    Panel3.visible = false
	    Panel4.visible = true
	    Panel5.visible = false

	Case 5

	    Panel4.visible = false
	    Panel5.visible = true
	    Panel6.visible = false

    	End Select	

End Sub
</MYCODE>	

<MYBETTERCODE>
 Sub setVisible(Stage As Integer)
    	'If there were an eval, I might do this
    	 eval("Panel" & Stage - 1 & ".visible") = false
    	 eval("Panel" & Stage & ".visible") = true
    	 eval("Panel" & Stage + 1 & ".visible") = false
 End Sub
</MYBETTERCODE>

\\Private m_MyPanels() As Panel
..
..
..
m_MyPanels = New Panel() {Panel1, Panel2, ..., Paneln}
..
..
..
Private Sub SetVisible(ByVal Stage As Integer)
    m_MyPanels(Stage - 1).Visible = False
    ...
End Sub
///

     Me.sqlDA_CB_LP.UpdateCommand = Me.SqlUpdateCommand4
     Me.SqlUpdateCommand4.Connection = Me.SqlConnection1

       Me.SqlUpdateCommand4.Parameters.Add(New _
          System.Data.SqlClient.SqlParameter("@STR_COMMENT", _ 
          System.Data.SqlDbType.NVarChar, 1073741823, "STR_COMMENT"))

cbLP = New SqlCommandBuilder(sqlDA_CB_LP)
dsCBLP1.clear()
sqlDA_CB_LP.fill(dsCBLP1)
dvCB_LP = New Dataview

with dvCB_LP
     .table = dsCBLP1.Tables("TDT_CUT_BLOCK_LP")
     .RowFilter = "ID_CUT_BLOCK = '" & txtBlockID.Text & "'"
End With

Me.txtLPComm.DataBindings.Add("text", dvCB_LP, "STR_COMMENT")

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal _
        e As EventArgs) Handles btnSave.Click

        Try
            sqlDA_CB_LP.Update(DsCBLP1, "TDT_CUT_BLOCK_LP")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Debug.Assert(DsCBLP1.HasChanges)

 Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnSave.Click 
       Dim oApp As Outlook.Application = New Outlook.Application 
       Dim lDays As Long 
       Dim lMinutes As Long

       lMinutes = DaysToMinutes(lDays) 

       ' Create a new AppointmentItem. 
       Dim oAppt As Outlook.AppointmentItem =
oApp.CreateItem(Outlook.OlItemType.olAppointmentItem) 

       oAppt.Subject = "Parking Permits Will expire in two weeks" 
       oAppt.Body = "Let Employees with Parking Permits know the
expiration date is two weeks away" 
       oAppt.Location = "Watsonville" 
       oAppt.Start = Convert.ToDateTime(dtpExpired.Value) 
       oAppt.End = Convert.ToDateTime(dtpExpired.Value) 
       oAppt.ReminderSet = True 
       oAppt.ReminderMinutesBeforeStart = lMinutes 

       ' Save to Calendar. 
       oAppt.Save() 

       ' Clean up. 
       oApp = Nothing 
       oAppt = Nothing 

         End Sub 

   Function DaysToMinutes(ByVal days As Long) As Long 
       Return days =20160 
   End Function 

End Class 

  Dim InTicksDatePlusFourteen As Long = _
  CDate(DateTimePicker1.Text).AddDays(14).Ticks

Me.DateTimePicker1.Value.Ticks

Public Structure ItemData
     Dim Descriptiong As String
     Dim Cost As Single
     Dim Quantity As Integer
     Dim Frequency As Single
     Dim UnitType As MeasureUnit
End Structure

<...>.PaperSize = New PaperSize(<Name>, <Width>, <Height>)

\\Dim s As String = "000012"
MsgBox(s.TrimStart("0"c))
///

\\Private Sub Form1_Load( _
    ByVal sender As System.Object, _
    ByVal e As System.EventArgs _
) Handles MyBase.Load
    Dim objWord As Word.ApplicationClass
    Dim strText As String
    objWord = New Word.Application()
    With objWord
        .Visible = False
        .Documents.Open( _
            Application.StartupPath & "\cookies.doc", _
            , _
            True _
        )
        .WordBasic.EditSelectAll()
        .WordBasic.SetDocumentVar( _
            "MyVar", _
            .ActiveDocument.ActiveWindow.Selection.Text _
        )
        strText = .WordBasic.GetDocumentVar("MyVar")
        TextBox1.Text = _
            InsertNewLineChars(Strings.Left(strText, Len(strText) - 1))
        .Documents.Close(0)
        .Quit()
    End With
End Sub

Private Function InsertNewLineChars( _
    ByVal strText As String _
) As String
    Dim pos As Integer, l As Integer
    pos = 1
    Do While pos < Len(strText)
        l = Strings.InStr(pos, strText, vbCr)
        If l = 0 Then Exit Do
        strText = _
            Strings.Left(strText, l - 1) & vbCrLf & _
            Mid(strText, l + 1)
        pos = l + 2
    Loop
    Return strText
End Function
///

Dim mic() As MenuItem
mic = New MenuItem(3) {}
mic(0) = New MenuItem("a")
mic(0).Index = 1

mic(1) = New MenuItem("b")
mic(1).Index = 2

mic(2) = New MenuItem("c")
mic(2).Index = 3

mic(1).MenuItems.Add(mic(2))

  cmd = new SqlCommand("INSERT INTO ... VALUES @name")
  cmd.paramaters.add("@name",Name)
  cmd.connection = new sqlconnection( ConnectionString )
  cmd.connection.open
  cmd.executeNonQuery
  cmd.connection.close