mxl=1                          && 最大的文本框编号
mnl=1                          && 最小的文本框编号
mxn=val(thisform.text1.value)  && 最大的数
mnn=val(thisform.text1.value)  && 最小的数
for i=2 to 6
    txi =('thisform.text'+allt(str(i  ))+'.value')
    txi=val(&txi)
    if mxn<txi
       mxl=i
       mxn=txi
    endif
    if mnn>txi
       mnl=i
       mnn=txi
    endif
endfor
thisform.label1.caption=str(mxl)
thisform.label2.caption=str(mxn)
thisform.label3. ......

VB6
在程序运行时用如下语句：
if   app.PrevInstance=true   then  
            end    
end   if
VB 2005:
1. 在VB2005中,打开"属性"页,启用"应用程序“框架, 选中"
单实例应用程序"前面复选框,就行了。
    (WinCE中没有该属性设置，只能通过Findwindow函数，察看是否已经有程序的实例在运行。或者用下面的MUTEX)
2. MUTEX. (一下代码为2008)
'
引用Mutex的类
　　
Imports
System.Threading
　　
Private

Sub
Form1_Load(
ByVal
sender
As
System.Object,
ByVal
e
As
System.EventArgs)
Handles

MyBase
.Load
　　
'
定义Mutex的类
　　
Dim
objMutex
As
Mutex
　　
'
得到应用程序的名称
　　
Dim
AppName
As

String

=

Assembly
.GetExecutingAssembly().GetName().Name
　　
'
用这个应用程序的名字,去实例化这个Mutex
　　objMutex
=

New
Mutex(
False
, AppName)
　　
'
判断是否有相同的应用程序在运行;
　　
If
objMutex.WaitOne(
0 ......

  在工程中添加一个类模块，名为   Selection  
  然后加入以下代码：  
   
  Dim   colRows   As   Collection  
  Dim   ControlKey   As   Boolean  
  Public   WithEvents   flx   As   MSFlexGrid  
   
  Public   Sub   ToggleSelection()  
          Dim   x   As   Integer  
          Dim   d  
          Dim   mode   As   Boolean  
          Dim   OldRow,   OldCol  
          x   =   flx.Row  
          If   x   =   0   Then   Exit   Sub  
          On   Error   Resume   Next  
            ......

MYSQL 应用十分广范，很多网站几乎都在用他，因为他的小巧和灵活性等方面让我决定要对他进行研究，到现在已经成功的不用经过ODBC，ADO等方式就可以读取和更新数据。
 
好了不多罗嗦，以下我来介绍总个程序的细节:
 
（一）API声明
 
1.  '分配或初始化适合mysql_real_connect()的一个MYSQL对像。
Public Declare Function mysql_init Lib "libmySQL" (ByVal lMysql As Long) As Long
 
2. '关闭一个以前打开了的连接
Public Declare Sub mysql_close Lib "libmySQL" (ByVal lMysql As Long)
 
3. '能用於设置额外连接选项并且影响一个连接的行为。
'这个函数可以被多次调用来设置多个选项。
'mysql_options()应该在mysql_init()之後和mysql_connect()或mysql_real_connect()之前调用。
'option参数是你想要设置的选项；
'arg   参数是选项的值。如果选项是一个整数，那麽arg应该指向整数值。
Public Declare Function mysql_options Lib "libmySQL" _
                          ......

MYSQL 应用十分广范，很多网站几乎都在用他，因为他的小巧和灵活性等方面让我决定要对他进行研究，到现在已经成功的不用经过ODBC，ADO等方式就可以读取和更新数据。
 
好了不多罗嗦，以下我来介绍总个程序的细节:
 
（一）API声明
 
1.  '分配或初始化适合mysql_real_connect()的一个MYSQL对像。
Public Declare Function mysql_init Lib "libmySQL" (ByVal lMysql As Long) As Long
 
2. '关闭一个以前打开了的连接
Public Declare Sub mysql_close Lib "libmySQL" (ByVal lMysql As Long)
 
3. '能用於设置额外连接选项并且影响一个连接的行为。
'这个函数可以被多次调用来设置多个选项。
'mysql_options()应该在mysql_init()之後和mysql_connect()或mysql_real_connect()之前调用。
'option参数是你想要设置的选项；
'arg   参数是选项的值。如果选项是一个整数，那麽arg应该指向整数值。
Public Declare Function mysql_options Lib "libmySQL" _
                          ......

Option Explicit
Dim potflag As Integer      '标识是否用小数点
Dim numcol As Integer       ' 点击运算符的个数
Dim LastInput               ' 指示上一次操作的内容
Dim colflag                 'numcol为1时，保存运算符
Dim temp1, temp2            '分别保存运算符两端的运算数
 
Private Sub CmdCel_Click()     '重新开始计算按钮，个计量数和标识初始化
    Res = Format(0, "0.")
    temp1 = 0
    temp2 = 0
    numcol = 0
    potflag = False
    LastInput = "cel"   '标识此操作为"cel"
End Sub
Private Sub CmdPot_Click()  '使用小数点
    If LastInput <> "num" Then
   & ......

全屏
Private Sub Form_Load()
    Me.Width = Screen.Width
    Me.Height = Screen.Height
    Me.WindowState = 2
End Sub
置顶
1.在VB的通用代码里写入API声明
Private Declare Function SetWindowPos& Lib "user32" (ByVal hwnd As Long, _
    ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _
    ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
2.因为我们要让窗口置顶
那么就在Form_Load()事件里写入如下代码
Dim myval
myval = SetWindowPos(form1.hwnd, -1, 0, 0, 0, 0, 3) ......