Hello Friend

Please help me out

Dll Class

Private Sub Class_Initialize()
Dim ScaleFactorX As Single, ScaleFactorY As Single ' Scaling factors
' Size of Form in Pixels at design resolution
DesignX = 1024
DesignY = 768
End Sub

Public Sub Res_Change(ByRef MyFrm As Object)
Dim MForm As Form
Set MForm = MyFrm
MForm.ScaleMode = 1
MyForm.Height = MForm.Height ' Remember the current size
MyForm.Width = MForm.Width

End Sub

After creating Dll, I am using in normal Standard exe program as

Command1_Click()
Dim Fr As Object
Set Fr = Nothing
Dim F As New Resolution_Screen
F.Res_Change (Fr)
end sub

When executing the above code gives an error object variable not set...

Pleae let me know where am I wrong.