AAAUUURRGH! Create a Function

[Static]

Ok..it has been so long since i have done this that i cant get it to work!!! AAAUUURRGGGHH!!!

this is the function:

Public Function MapPos(X As Integer, Y As Integer)
MyLoc.X = X * 217
MyLoc.Y = Y * 217
MyShip.Left = MyLoc.X
MyShip.Top = MyLoc.Y
End Function

trying to call the function:

Private Sub Command1_Click()
z = 1
g = 5
MapPos z, g
End Sub

I get a ByRef Type Mismatch and it points to the z???!!??

ok...Help PLEASE!

[sebs]

Not sure but declare z and g as integer

[Corby]

You obviously do not have Option Explicit Turned On
for Variable Declaration.

Change To

Private SubCommand1_Click()
'Or Dim z As Integer, g As Integer if you prefer
Dim z%, g%

z = 1
g = 5
Call MapPos(z, g)
'Or Ret_Val = MapPos(z, g) if you want to get a
' a value returned
End Sub

Corby Nichols



[Edited by Corby on 11-22-2000 at 12:55 PM]

[Static]

oh yeah...
Dont I feel stupid. I did declare Z & G but i did this
Dim z,g as integer (not dim Z as intger, g as integer)

Y'know...sometime ya just blank on something that is staring you in the face!

THANKS!