Visual Basic

Dim rptDocument As New CrystalDecisions.CrystalReports.Engine.ReportDocument()
    
'Populate your report data etc.

If PrintDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
      rptDocument.PrintOptions.PrinterName = PrintDialog.PrinterSettings.PrinterName
      rptDocument.PrintToPrinter(PrintDialog.PrinterSettings.Copies, False, 1, 1)
End If

    bool CanSelect = false;
void tabControl1_Selecting(object sender, TabControlCancelEventArgs e) {
      e.Cancel = !CanSelect;
      CanSelect = true;
    }

Private Sub TabControl1_Selecting(ByVal sender As Object, ByVal e As System.Windows.Forms.TabControlCancelEventArgs) Handles TabControl1.Selecting
    e.Cancel = Not CanSelect
End Sub

Imports System
Imports System.IO
Imports System.Net
Imports System.Xml

Module Module1
    Sub Main()
        'Address of URL, just a random user
        Dim URL As String = "http://harumacchi.tumblr.com/api/read"
        ' Get data
        Dim client As WebClient = New WebClient()
        
        ' Read an print to console
        Dim reader As StreamReader = New StreamReader(client.OpenRead(URL))
        Dim str As String = ""

        Do While reader.EndOfStream = False
            str = reader.ReadLine()
            Console.WriteLine(str)
            Console.ReadKey()
        Loop

        ' load as document
        Dim xmldoc As XmlDocument = New XmlDocument()
        xmldoc.Load(client.OpenRead(URL))

        For Each node As XmlNode In xmldoc.ChildNodes

            Console.WriteLine(node.Name)
            Console.ReadKey()
        Next

        ' read as xml
        Dim xmlreader As XmlTextReader = New XmlTextReader(client.OpenRead(URL))

        Do While xmlreader.Read()

            If xmlreader.NodeType = XmlNodeType.Element Then
                Console.WriteLine(xmlreader.LocalName)
                Console.ReadKey()
            End If
        Loop


    End Sub
End Module

sohil masani wrote:

i need to know how to create a combo box in datagrid in vb6.

I are Troll

dim com as NewOleDbCommand
com.connection = con
Dim da as New OleDbDataAdapter(com)