Nel tuo caso, il programma VB6 ad esempio sarà

codice:
Private Declare Sub ProgVC Lib "TuaLib.dll" (ByRef X1 As Double, ByVal Lim1 As Long)
                                 
Private Sub Form_Click()
    Dim arr(100) As Double
    
    arr(0) = 110
    arr(1) = 220
    
    Call ProgVC(arr(0), 100)
    
    Print arr(0)
    Print arr(1)
End Sub
e quello della DLL

codice:
void __stdcall ProgVC (double *x1, int lun)
{
	double temp;

	temp=x1[1];
	x1[1]=x1[0];
	x1[0]=temp;
}