VB6如何生成GUID?

[RayLynn]

有没有API函数调用或者其他算法,感谢`

[boywang]

http://community.csdn.net/Expert/topic/4979/4979355.xml?temp=6.156558E-02

[GoldFox]

Private Declare Function CoCreateGuid Lib "ole32" (id As Any) As Long
Private Sub Form_Load()
MsgBox "Generated GUID: " + CreateGUID
End Sub
Public Function CreateGUID() As String
Dim id(0 To 15) As Byte
Dim Cnt As Long, GUID As String
If CoCreateGuid(id(0)) = 0 Then
For Cnt = 0 To 15
CreateGUID = CreateGUID + IIf(id(Cnt) < 16, "0", "") + Hex$(id(Cnt))
Next Cnt
CreateGUID = Left$(CreateGUID, 8) + "-" + Mid$(CreateGUID, 9, 4) + "-" + Mid$(CreateGUID, 13, 4) + "-" + Mid$(CreateGUID, 17, 4) + "-" + Right$(CreateGUID, 12)
Else
MsgBox "Error while creating GUID!"
End If
End Function

[online]

http://blog.csdn.net/online/archive/2004/08/19/78623.aspx