在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel 11.0 object library”项。由于你的Excel版本不同，所以这个选项的版本号也是不同的。
    因为EXCEL是以层次结构组织对象的，其对象模型中含有许多不同的对象元素。
    第一层：Application对象，即Excel本身；
    第二层：workbooks对象集，指Excel的工作簿文件；
    第三层：worksheets对象集，表示的是Excel的一个工作表；
    第四层：Cells和Range对象，指向Excel工作表中的单元格。
    新建立一个VB的工程，先放一个button，名称为Excel_Out。先定义好各层：
Dim xlapp As Excel.Application 'Excel对象
Dim xlbook As Excel.Workbook '工作簿
Dim xlsheet As Excel.Worksheet '工作表
    我们打算做的是：打开/新建一个excel，在其中对某工作表的一些单元格修改其值，然后另存为test.xls文件。
Private Sub Excel_Out_Click()
Dim i, j As Integer
Set xlapp = CreateObject("Excel.Application") '创建EXCEL对象
  ......

ASP.Net中使用VB.Net调用存储过程并得到返回值
来源：qqread论坛 作者： 出处：巧巧读书 2006-08-03 进入讨论组
//存储过程代码
　CREATE PROCEDURE [AddNewInvoiceInfo] (@sUserID int,@sClaimMethod varchar(50),@sInvoiceNum 　varchar(50),@sInvoiceDate datetime,@sBuyCity varchar(50))AS
　Insert Into SMB_InvoiceInfo (MemberID,ClaimMethod,InvoiceNum,InvoiceDate,InvoiceCity) Values 　(@sUserID,@sClaimMethod,@sInvoiceNum,@sInvoiceDate,@sBuyCity)
　return  @@IDENTITY
　GO
//调用存储过程代码
　Dim CN As New SqlConnection()
　Dim InvoiceID As String
　Try
    CN.ConnectionString = DBConStr
    CN.Open()
    Dim CMD As SqlCommand
    CMD = New SqlCommand(AddNewInvoiceInfo, CN)
    CMD.CommandType = CommandType.StoredProcedure
    CMD.Parameters.Add(New SqlParameter(@sUserID, SqlDbType.Int))
    CMD.Parameters(@sUserID).Value = CInt(UserID.Text)
    CMD.Parameters. ......

ASP.Net中使用VB.Net调用存储过程并得到返回值
来源：qqread论坛 作者： 出处：巧巧读书 2006-08-03 进入讨论组
//存储过程代码
　CREATE PROCEDURE [AddNewInvoiceInfo] (@sUserID int,@sClaimMethod varchar(50),@sInvoiceNum 　varchar(50),@sInvoiceDate datetime,@sBuyCity varchar(50))AS
　Insert Into SMB_InvoiceInfo (MemberID,ClaimMethod,InvoiceNum,InvoiceDate,InvoiceCity) Values 　(@sUserID,@sClaimMethod,@sInvoiceNum,@sInvoiceDate,@sBuyCity)
　return  @@IDENTITY
　GO
//调用存储过程代码
　Dim CN As New SqlConnection()
　Dim InvoiceID As String
　Try
    CN.ConnectionString = DBConStr
    CN.Open()
    Dim CMD As SqlCommand
    CMD = New SqlCommand(AddNewInvoiceInfo, CN)
    CMD.CommandType = CommandType.StoredProcedure
    CMD.Parameters.Add(New SqlParameter(@sUserID, SqlDbType.Int))
    CMD.Parameters(@sUserID).Value = CInt(UserID.Text)
    CMD.Parameters. ......

  C#自己没有Inputbox这个类，但是Inputbox也蛮好用的，所以有两种方法可以使用
   一：.间接调用vb中的Inputbox功能
      1。在项目中添加对Microsoft.VisualBasic引用
      2。在项目中添加命名空间Using Microsoft.VisualBasic;
      3。以后就可以直接使用VB中的好多类库（爽啊……）
   
      例如:textBox1.Text=Microsoft.VisualBasic.Interaction.InputBox(“提示性文字”, “对话框标题”, “默认值”, X坐标, Y坐标);
上面的 X坐标, Y坐标 可以取值为 –1 和 -1，表示屏幕中间位置显示。
    二：还可以自己写一个InputBox（）这个函数。动态生成一个FORM以及TEXTBOX和BUTTON等，确定好位置，返回用户输入的字符串。
public partial class InputBox : Form
    {       
        private InputBox()
        { ......

  C#自己没有Inputbox这个类，但是Inputbox也蛮好用的，所以有两种方法可以使用
   一：.间接调用vb中的Inputbox功能
      1。在项目中添加对Microsoft.VisualBasic引用
      2。在项目中添加命名空间Using Microsoft.VisualBasic;
      3。以后就可以直接使用VB中的好多类库（爽啊……）
   
      例如:textBox1.Text=Microsoft.VisualBasic.Interaction.InputBox(“提示性文字”, “对话框标题”, “默认值”, X坐标, Y坐标);
上面的 X坐标, Y坐标 可以取值为 –1 和 -1，表示屏幕中间位置显示。
    二：还可以自己写一个InputBox（）这个函数。动态生成一个FORM以及TEXTBOX和BUTTON等，确定好位置，返回用户输入的字符串。
public partial class InputBox : Form
    {       
        private InputBox()
        { ......

 前几日，有个哥们说有很多电影，问我要不要？我就让他一个一个的写过来，让哥们累个不轻。所以就想简单写个程序，获取一下文件夹下面的所有文件名称，这样就可以节省很多时间了。
软件呢，我已经上传到网站了：http://download.csdn.net/source/1802599
vb版本目录获取器 1.0（龙卷风出品）
说明：
1.选好目录后，可以直接得到目录下的文件夹和文件名称，以及统计数目。
2."树形结构"按键将会把各文件夹和文件罗列下来。
3."树形展开"将把目录下的子目录也一并展开。大家测试的时候需要注意，不要用太深的目录来测。
下面开始动手的步骤：
 vb中有个函数Dir()，这个就是今天的主角了。Dir()第一次调用的时候，必须指定路径。然后其会返回一个string，这就是一个文件夹，或者一个文件的名称了。具体用法，大家google一下吧。我就不多说了。
然后就是区分返回值是文件夹，还是文件。这里用到的就是vbDirectory(=16)这个属性了。
OK. 剩下的就简单了，我把我软件中的这部分发出来share一下，大家不要说水平太差哟：
首先我是将文件显示做了区分：文件夹名称显示folderlist()，文件名称显示filelist():
Private Function folderlist(pathname As String, t ......

'创建数据库
  Private Sub Create(ByVal mdbPath As String)
        If File.Exists(mdbPath) Then
            Throw New Exception("目标数据库已经存在，无法创建")
        End If
        mdbPath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + mdbPath
        Dim cat As ADOX.Catalog = New ADOX.Catalog()
        cat.Create(mdbPath)
    End Sub
    '''' <summary>
    '''压缩修复数据库
    ''' </summary>
    ''' <param name="mdbPath"> 被压缩的数据库路径+数据库文件名</param>
    ''' <remarks></remarks>
    Public Sub Compact(ByVal mdbPath As String)
        'If Not File.Exi ......

'创建数据库
  Private Sub Create(ByVal mdbPath As String)
        If File.Exists(mdbPath) Then
            Throw New Exception("目标数据库已经存在，无法创建")
        End If
        mdbPath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + mdbPath
        Dim cat As ADOX.Catalog = New ADOX.Catalog()
        cat.Create(mdbPath)
    End Sub
    '''' <summary>
    '''压缩修复数据库
    ''' </summary>
    ''' <param name="mdbPath"> 被压缩的数据库路径+数据库文件名</param>
    ''' <remarks></remarks>
    Public Sub Compact(ByVal mdbPath As String)
        'If Not File.Exi ......

 写了一个vb的程序，用来把原来写的几个vb和vc的程序整合起来。就是使用Shell函数。结果发现，vc的程序可以很好的显示，但vb写的却一运行就最小化了。仔细查看了一下以下文章，才发现原来shell函数的默认显示模式是windowstyle是等于vbMinimizedFocus。然后就是直接加上一个vbNormalFocus。一切ok!  
vb的shell函数用法： 
功能：执行一个可执行文件，返回一个 Variant (Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。 
语法：Shell(pathname[,windowstyle]) 
Shell 函数的语法含有下面这些命名参数： 
pathname 必要参数。Variant (String)，要执行的程序名，以及任何必需的参数或命令行变量，可能还包括目录或文件夹，以及驱动器。 
Windowstyle 可选参数。Variant (Integer)，表示在程序运行时窗口的样式。如果 windowstyle 省略，则程序是以具有焦点的最小化窗口来执行的。 
shellExecute函数： 
     其用法较为复杂，但是功能更加强大。
     HINSTANCE ShellExecute(
 &n ......