Вызов модуля

'Module1
Public Sub subMod()
   ...
   ...
   ...
End Sub

'General Form1
Option Explicit
   ...
Module1.subMod
'или просто
Module1
'или
subMod
   ...

Option Explicit
 
subMod
 
Private Sub Form_Load()
   Form1.Width = size
End Sub
 
Private Sub Command1_Click()
   g.Cls
End Sub

Public Sub subMod()
   Const size = 300
End Sub

'код модуля
 
Public Const size = 300
 
'код формы
 
Private Sub Form_Load()
   Me.Width = size
End Sub
 
Private Sub Command1_Click()
   g.Cls
End Sub

Picture1.Width = 200

Form1.Picture1.Width = 200

Public Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
   ...
   ...
End Sub

Form1.Picture1_MouseDown параметры

'Module1:
Public Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Sub ReleaseCapture Lib "User32" ()
Public Const WM_NCLBUTTONDOWN = &HA1
Public Const HTCAPTION = 2
 
Public Sub g_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
   Dim ReturnValue As Long
   If Button = 1 Then
      ReleaseCapture
      ReturnValue = SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
   End If
End Sub

'Form1:
Form1.Picture1_MouseDown Button, Shift, x, y

Form1.Picture1_MouseDown 1, 0, 0, 0

 SendMessage(Me.hwnd