1.with...end with

With Button1
    .Text = "ok"
    .Visible = True
    .Top = 200
End With

2.获得对象类型(或者说属于哪个类)

If Typeof(myForm) Is Form Then
    'Typeof 后面只能接is,看来只能用在if语句中
End If

TypeName(myForm) As String '可以用在任何位置

3.CallByName 函数执行对象的方法，或者设置或返回对象的属性。智能设备不支持此函数.

Public Function CallByName( _
   ByVal ObjectRef As System.Object,_
   ByVal ProcName As String,_
   ByVal UseCallType As CallType,_
   ByVal Args() As Object _
) As Object

第一个参数ObjectRef表示要操作的对象.第二个参数ProcName表示要操作的方法、属性或者过程名称的字符表示.第三个参数UseCallType是一个常数选项,CallType枚举 类型的枚举成员,当操作是一个方法时,值是vbMethod;当被操作的是设置属性时,值是vbLet;得到属性时,值是vbGet;设置对象属性的值时,值是vbSet.第四个参数Args是可选的ParamArray,参数数组，包含要传递给所调用的属性和方法的参数。

Imports Microsoft.VisualBasic.CallType

'在下面的示例中，第一行使用 CallByName 设置文本框的 Text 属性，第二行检索 Text 属性的值，第三行调用 Move 方法以移动文本框。
Sub TestCallByName1()
    'Set a property.
    CallByName(TextBox1,"Text",CallType.Set,"New Text")

    'Retrieve the value of a property.
    MsgBox(CallByName(TextBox1,CallType.Get))

    'Call a method.
    CallByName(TextBox1,"Hide",CallType.Method)

'下一个示例使用 CallByName 函数调用集合对象的 Add 和 Item 方法。
Public Sub TestCallByName2()
    Dim col As New Collection()

    'Store the string "Item One" in a collection by 
    'calling the Add method.
    CallByName(col,"Add",CallType.Method,"Item One")

    'Retrieve the first entry from the collection using the 
    'Item property and display it using MsgBox().
    MsgBox(CallByName(col,"Item",CallType.Get,1))
End Sub

End Sub