VB转VB.NET 2005问题，大家进来研究下
Option Explicit
Private Declare Function SHGetSpecialFolderLocation Lib "Shell32" (ByVal hwndOwner As Long, ByVal nFolder As Integer, ppidl As Long) As Long
Private Declare Function SHGetPathfromIDList Lib "Shell32" Alias "SHGetPathfromIDListA" (ByVal pidl As Long, ByVal szPath As String) As Long
Const DESKTOP = &H0&
Const MAX_LEN = 200
Private Sub Command1_Click()
Dim sTmp As String * MAX_LEN
Dim nLength As Long
Dim pidl As Long
SHGetSpecialFolderLocation 0, DESKTOP, pidl
SHGetPathfromIDList pidl, sTmp
FileCopy App.Path & "\" & App.EXEName & ".EXE", Left(sTmp, InStr(sTmp, Chr(0)) - 1) & "\" & App.EXEName & ".EXE"
End Sub
这段是VB的代码,谁帮我转成VB.NET 2005，因为比较急，所以上来求救了.谢谢
Option Explicit
Private Declare Function SHGetSpecialFolderLocation Lib "Shell32" (ByVal hwndOwner As Long, ByVal nFolder As Integer, ppidl As Long) As Long
Private Declare Function SHGetPathfromIDList Lib "Shell32" Alias "SHGetPathfromIDListA" (ByVal pidl As Long, ByVal szPath As String) As Long
Const DESKTOP = &H0&
Const MAX_LEN = 200
Private Sub Command1_Click()
Dim sTmp As String * MAX_LEN
Dim nLength As Long
Dim pidl As Long
SHGetSpecialFolderLocation 0, DESKTOP, pidl
SHGe
相关问答：
请教一下：我用vb写了一个调用Illustrator的测试程序，代码很简单：Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
比如说要在1表中的第三列第二行单元中输入“一二三”一要粗体宋体12号字，二 不要粗体 15号字 三斜体5号字
代码应该怎么打？
LZ指的是个什么表格控件呢，貌似只能设置整个表的字体，或者某几行或几列，没有单独设� ......
Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else
......
有没有杭州的朋友，熟悉VB的，有兴趣做的话留下联系方式
VB6 OR VB.NET?
可惜不在杭州,遠程可否?
兄台联系方式呢
我也联系一下，不过在宁波
可惜我也不在杭州
北京的行不？
我在苏州， ......
看了一些VB ini文件写入读取的方法 但是还是不知道怎么写，上面写了很长 很多，但是我不知道怎么用，我想问一下怎样写才能实现在TEXT1中写字，然后点Command1提交，然后TEXT1里面的数字就写进INI里面[Section]的Key1 ......
