Michael Sync

Private Declare Sub ReleaseCapture Lib “user32″ ()
Private Declare Function SendMessage Lib _
“user32″ Alias “SendMessageA” (ByVal hwnd As Long, _
  ByVal wMsg As Long, ByVal wParam As Integer, _
  ByVal lParam As Long) As Long

Public Sub FormDrag(theForm As Form)
  ReleaseCapture
  Call SendMessage(theForm.hwnd, &HA1, 2, 0&)
End Sub

Private Sub Form_MouseDown(Button AsInteger, _
Shift As Integer, X AsSingle, Y As Single)

  FormDrag Me ”Dragging
End Sub

MVP(s)

• Brad Martinez
• Steve McMahon
• Eduardo A. Morcillo
• VBSpeed
• Randy Birch
• Karl E. Peterson

Libraries

• VBCorLib
• Steve McMahon
• Eduardo A. Morcillo
• VBSpeed
• Randy Birch
• Karl E. Peterson

API, Hooking and SubClassing

• Book "Hardcore Visual Basic"
• AllAPI.net
• AllAPI.net : API List
• Hidden Gems for Free : Exposing undocumented memory access functions in Visual Basic 6
  (By Michel Butten)
• A COM object you can use in VB providing equivalent functions to C runtime's malloc, free and delete
• Object Store
• Keyboard and Mourse

Helper Tools - Add-In

• MzTool 3.0

XML

• Microsoft Core XML Services (MSXML) 6.0
• Performing XML Transformations using MSXML
• Top XML

Database

• ACC2000: Reading, Storing, and Writing Binary Large Objects (BLOBs)
• Store Images in Your Database

Documentation Tools

• VBDox

Notes : Please inform me if you found any broken link. I do appreciated for your help.

Image control

• a "lightweight" control that has no device context (or hDC) or it's own.
• can display a gif file loaded into the picture property with a transparent background.
• flicker when moved at runtime.
• can only be z-ordered (layered) over another lighweight control.
• has Stretch property. Otherwise, ImageControl can stretch the image.
• No AutoSize Property.
• is not a container control.
• no OLE drag/drop.
• PaintPicture doesnt' work. and no drawing or printing ability (printing to the image contained therein)

Image control

• Has Hwnd and Hdc.
• no transparent background.
• doesn't flicker when moved at runtime.
• No layered.
• No Stretch Property
• Has Autosize Property
• is a container control.
• OLEDrag/Drop
• Work with PaintPicture.

References URL(s) ~

http://www.codecomments.com/message729787.html
http://www.xtremevbtalk.com/showthread.php?t=247820

Drag Article : Moved from Old Blog

Private Declare Function GetModuleHandle _
Lib "kernel32" Alias _
"GetModuleHandleA" _
(ByVal lpModuleName As String) As Long </span>
<span style="font-family: verdana; font-size: 85%">
Public Function TestEnvironment() As Boolean
Dim ModuleHandle As String
Dim EnvFileName As String
Dim EnvVal As Variant
Dim ReturnVal As Long
Dim i As Long
EnvVal = _
Array("vb.exe", _
"vb32.exe", _
"vb5.exe", _
"vb6.exe")
For i = LBound(EnvVal) To UBound(EnvVal)
ModuleHandle = EnvVal(i)
ReturnVal = GetModuleHandle(ModuleHandle)
If ReturnVal  0 Then
EnvFileName = ModuleHandle
TestEnvironment = True
Exit For
End If
Next
End Function

Private Sub Command1_Click()
If TestEnvironment() = True Then
MsgBox ("Running under IDE")
Else
MsgBox ("Running as EXE")
End If
End Sub

Another way to do is to detect whether the Visual Studio 6 IDE open or not using some API.

References Link
Question: How can I test whether a program is running at design time or run time using VB6?