我们来观察鼠标在窗体内的位置和窗体的移动，很容易可以发现：在窗体被拖动的过程中，鼠标在窗体内的相对位置是始终不变的！那么，我们只要检测到鼠标在屏幕中的移动并修改窗体的位置就可以达到拖动窗体的目的！
　　我们知道，在鼠标消息/事件处理中，只能得到鼠标相对于窗体的位置。那么，如何知道鼠标在屏幕中的位置呢？这里又要提到一个类：System.Windows.Forms.Control类。也许你会很吃惊：这不是所有控件的基类么？呵呵~是这样di。不过，尽管是这样，Control类却没有像其他广泛使用的基类那样被声明为抽象类，而且它提供了一个静态属性：MousePosition，通过这个属性可以得到鼠标相对于屏幕的位置。有关Control类的信息可以在.NET Framework文档目录“.NET Framework SDK -> 参考 -> 类库 -> System.Windows.Forms -> Control 类”处找到（注：这里的超链接只在您安装了.NET Framework 1.1简体中文版并且安装了配套文档时才有效）。

　　知道了如何获取这些信息之后，制作移动窗体实际上就成了一个很简单的问题了。基本过程是这样的：首先，在鼠标（左键或一个你喜欢的键）按下时，记录鼠标位置；由于在移动的过程中，鼠标的屏幕坐标发生变化但窗体相对坐标不变，我们可以推算出窗体位置的变化为（假设mousePosition具有System.Drawing.Point类型，表示鼠标在窗体中的相对坐标）：

// 示例代码1 　　Form.Top = Control.MousePosition.Y - mousePosition.Y; 　　Form.Left = Control.MousePosition.X - mousePosition.X;

　　这样还不行，因为我们的mousePosition表示的是鼠标在窗体用户区内的相对坐标，但在移动窗体的时候还要考虑窗体标题栏和边框的尺寸。在上面的基础上，我们将代码修正为：

// 示例代码2 　　Form.Top = Control.MousePosition.Y - mousePosition.Y 　　- SystemInformation.FrameBorderSize.Height - SystemInformation.CaptionHeight; 　　Form.Left = Control.MousePosition.Y - mousePosition.Y 　　- SystemInformation.FrameBorderSize.Width;

　　也就是说，在高度上（纵坐标）要减去标题栏的高度和边框的高度，而在宽度上（横坐标）要减去边框的宽度。然而，当制作一个既没有标题栏也没有边框的可拖动窗体时，使用“示例代码1”所示的代码就可以了。

　　上面的代码只是一个示范性代码。具体的操作如下：

　　首先，为窗体添加一个私有域：

private System.Drawing.Point mousePoint;

　　然后，为窗体添加鼠标按下事件处理方法（我这里是MainForm_MouseDown，别忘了将该方法链接到MainForm.MouseDown事件，这不用多说了吧？）：

private void MainForm_MouseDown(object sender, System.Windows.Forms.MouseEventArgs e) { 　　if(e.Button == MouseButtons.Left) { 　　this.mousePosition.X = e.X; 　　this.mousePosition.Y = e.Y; 　　} 　　}

　　在这里注意对鼠标按键进行筛选。

　　接下来，为窗体添加鼠标移动事件处理方法（我这里是MainForm_MouseMove）：

private void MainForm_MouseMove(object sender, System.Windows.Forms.MouseEventArgs e) { 　　if(e.Button == MouseButtons.Left) { 　　Form.Top = Control.MousePosition.Y - mousePosition.Y 　　- SystemInformation.FrameBorderSize.Height - SystemInformation.CaptionHeight; 　　Form.Left = Control.MousePosition.Y - mousePosition.Y 　　- SystemInformation.FrameBorderSize.Width; 　　} 　　}

Left Left(string,length) 从string字符串的左边取得length长度的字符串
Right Right(string,length) 从string字符串的右边取得length长度的字符串
LCase LCase(string) 将string字符串里的所有大写字母转化为小写字母
UCase UCase(string) 将string字符串里的所有大写字母转化为大写字母
StrComp StrComp(string1,string2[，compare]) 返回string1字符串与string2字符串的比较结果，如果两个字符串相同，则返回0，如果小于则返回-1，如果大于则返回1

InStr InStr(string1,string2[, compare]) 返回string1字符串在string2字符串中第一次出现的位置
Split Split(string1,delimiter[, count[, start]]) 将字符串根据delimiter拆分成一维数组，其中delimiter用于标识子字符串界限。如果省略，使用空格("")作为分隔符。
count 返回的子字符串数目，-1 指示返回所有子字符串。
start为 1 执行文本比较；如果为 0 或者省略执行二进制比较。
Replace Replace(expression, find, replacewith[, compare[, count[, start]]]) 返回字符串，其中指定数目的某子字符串(find)被替换为另一个子字符串(replacewith)。

1、Len函数示例：
下面的示例利用 Len 函数返回字符串中的字符数目：
Dim MyString
MyString = Len("VBSCRIPT") ''MyString 包含 8。

2、Trim、Ltrim、Rtrim函数示例：
下面的示例利用 LTrim, RTrim, 和 Trim 函数分别用来除去字符串开始的空格、尾部空格、 开始和尾部空格：
Dim MyVar
MyVar = LTrim(" vbscript ") ''MyVar 包含 "vbscript "。
MyVar = RTrim(" vbscript ") ''MyVar 包含 " vbscript"。
MyVar = Trim(" vbscript ") ''MyVar 包含"vbscript"。

3、Mid函数示例：
下面的示例利用 Mid 函数返回字符串中从第四个字符开始的六个字符：
Dim MyVar
MyVar = Mid("VB脚本is fun!", 4, 6) ''MyVar 包含 "Script"。

4、Left函数示例：
下面的示例利用Left 函数返回MyString 的左边三个字母：
Dim MyString, LeftString
MyString = "VBSCript"
LeftString = Left(MyString, 3) ''LeftString 包含 "VBS

5、Right函数示例：
下面的示例利用 Right 函数从字符串右边返回指定数目的字符：
Dim AnyString, MyStr
AnyString = "Hello World" ''定义字符串。
MyStr = Right(AnyString, 1) ''返回 "d"。
MyStr = Right(AnyString, 6) '' 返回 " World"。
MyStr = Right(AnyString, 20) '' 返回 "Hello World"。

6、LCase函数示例：
下面的示例利用 LCase 函数把大写字母转换为小写字母：
Dim MyString
Dim LCaseString
MyString = "VBSCript"
LCaseString = LCase(MyString) '' LCaseString 包含 "vbscript"。

7、 UCase函数示例：
下面的示例利用 UCase 函数返回字符串的大写形式：
Dim MyWord
MyWord = UCase("Hello World") '' 返回"HELLO WORLD"。

8、StrComp函数示例：
下面的示例利用 StrComp 函数返回字符串比较的结果。如果第三个参数为 1 执行文本比较；如果第三个参数为 0 或者省略执行二进制比较。

Dim MyStr1, MyStr2, MyComp
MyStr1 = "ABCD": MyStr2 = "abcd" ''定义变量。
MyComp = StrComp(MyStr1, MyStr2, 1) '' 返回 0。
MyComp = StrComp(MyStr1, MyStr2, 0) '' 返回 -1。
MyComp = StrComp(MyStr2, MyStr1) '' 返回 1。

9、InStr示例：
下面的示例利用 InStr 搜索字符串：
Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP"
SearchChar = "P"
MyPos = Instr(SearchString, SearchChar)''返回 9.
注意：返回的不是一个字符串在另一个字符串中第一次出现的字符位置，而是字节位置。

10、Split函数示例：
Dim MyString, MyArray, Msg
MyString = "VBScriptXisXfun!"
MyArray = Split(MyString, "x",-1,1)
'' MyArray(0) contains "VBScript".
'' MyArray(1) contains "is".
'' MyArray(2) contains "fun!".
Response.Write(MyArray(0))

11、Replace函数示例：
Replace("ABCD", "BC", "12") ''得到A12D

 C#中System.string类中Split()实例方式的用法？
  Split()的用法     
 split(a)意指以字符串中的a为轴，把他两边的字符串分别取出来作为一个数组的一个元素，空字符串也算。
例：string s = "abc" 可定义字符串数组string[] st = s.split(b),则st = {a,b}.
当string s = "aaabccc"时，字符串数组string[] st = s.split(b),则st = {"aaa","bbb"}，st长度为2，如果要索引的字符串中不包含split()中的参数，则数组st就只有原字符串一个元素，其长度为1。当string s = "abc"时，st = s.split(a),则st = {"","bc"}，其长度仍为2，由此可见，当s.split()中的参数在S中时数组st.length>= 2,不在时st.length = 1；