Visual Basic :: Moving An Object Questions

2 Questions About Moving Objects.
Hi. I am new to Visuall Basic but not also to programming.

1)I have this function function:

Code:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 32 Then
...

When i have the right arrow key pressed a picture keeps moving. But it stops moving when i hit another key, although the right arrow key is still pressed. How can i do that so that the picture will keep moving when the right arrow key is pressed, no matter if meantime i press other keys?

2) I want to make a picture or shape to start moving everytime a particular key is pressed. I can do this, but if the user press the key twice, the picture starts moving and then ( when they press the key for the second time ) it stops to move, goes to the beginning position and then starts to move again( from the beginning ). But i want the two pictures/shapes to move at the same time. How can i do that? And the user can hit the key as many times as they want. If he hits the particular key 4 times, then four pictures/shapes will start moving from a particular position ( but in different times; every time he press the key a pictures starts to move, if it takes them 5 second to hit the key for the second time, then the second picture will start to move after 5 seconds from the first one. Finally, both of them will move - but the one will be ahead ).

thanks in advance

Some File Moving Questions
How do u create a new directory?
How do u copy a file from one path to another?

2 Questions....Moving Active Cell And Counting
Okay, the first question
I have found a cell...now i just need to move 3 cells to the right and get that value.

How do I from a column, count how many of that specific number like

222
222
333
333
444
444
444

so 222 = 2
333 = 2
444 = 3

Any information would be greatly appreciated.

Questions: BitBit Moving, Walkmasks And Item Pickups.
Ok, so far have i quickly created a small program where a picture(the guy you control) moves instantly to the location of your click. Theres 3 things i must now:
1. How can i make my guy move slowly to the targeted location? not instantly.

2.How can i create walkmasks? Forexample if i create a tree, and i dont want my guy to walk right through the tree but around it.

3.How can i make my character pick up items? Forexample how can i make my guy get 10 score-points when he moves over an item, which in reality is a picture.

Edit*
I use BitBit.
This is not going to be a real game, iam just testing things out before i start creating a game.
Nothing is animated.

Moving An Object, Need Help!!!
Hi,
I'm no sure if this is the right place for this but i think it is...
I'm making a small slider control for a Media play I made.. it worksby using 3 picture boxes.. 1 for the background, 1 for the foreground (the actual slider) and one is used to restrict the mouse movements. and i'm having trouble with it..
I got the movement running perfect, but only if the window is maximised, if its not the foreground image ends up in random spots over the screen..
Heres my code for shifting the pforeground picturebox:

Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim Pressed As Boolean

Private Sub SliderFore_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Pressed = True Then
Dim POINT As POINTAPI
GetCursorPos POINT
SliderFore.Left = POINT.x * Screen.TwipsPerPixelX - 50
End If
End Sub

I used the 'pressed' boolean to ensure the slider doesn't move when the picturebox isn't clicked. I found most of this code in a message forum, and modified it.. If you want the actual code leave me a message with your email and i'll send it to you.....
thanx for your help in advance.

Moving Object HELP !!!!
hey i am making a snake game and whenevermy snake turns i want him to sorta like bend in half and the rest of his body flow along where he moved behind him, i also need to know how to join segments on to him as he eats, how do i do this stuff !?

Thanx

Moving Object
Me Again.

I want a picture box to become visible and move when the space bar is pressed, this is done, however i want the picture box to stop when it hits another picbox or the edge of the form. When either one of these functions occurs i want the picture box to move back to the picture box you control yourself. What i mean is that you are picbox1 and when space is pressed picbox 2 appears and moves, when picbox2 hits picbox 3 or the edge of the form i want it to go back to where picbox 1 is, so you can still move picbox 1 and no matter where picbox 1 is picbox2 will find it and go just infront of it. If you understand what i mean can you please help me.

Here is the code to the entire project as i have it at the moment.

____________________________________________________
Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyRight Then
Picture1.Left = Picture1.Left + 50
End If
If KeyCode = vbKeyLeft Then
Picture1.Left = Picture1.Left - 50
End If
If KeyCode = vbKeyUp Then
Picture1.Top = Picture1.Top - 500
End If
If KeyCode = vbKeyDown Then
Picture1.Top = Picture1.Top + 50
End If
If KeyCode = vbKeyReturn Then
Form2.Show
End If
If KeyCode = vbKeySpace Then
Timer1.Enabled = True
Picture2.Visible = True
End If
End Sub
____________________________________________________
Private Sub Picture2_Click()
If KeyCode = vbKeyRight Then
Picture2.Left = Picture2.Left + 50
End If
If KeyCode = vbKeyLeft Then
Picture2.Left = Picture2.Left - 50
End If
If KeyCode = vbKeyUp Then
Picture2.Top = Picture2.Top - 500
End If
If KeyCode = vbKeyDown Then
Picture2.Top = Picture2.Top + 50
End If
End Sub
____________________________________________________
Private Sub Timer1_Timer()
Picture2.Left = Picture2.Left + 350
End Sub

____________________________________________________

Moving An Object.
Y'know how if you press a key on the keyboard, it will place the letter in the text box once, then after a short delay it will start repeatedly placing the letter in the text box? Thought so...

Well I made something that uses the arrow keys to move an object around the form, and I was wondering how I would code it so there is no delay, and it just immediately starts moving right, rather than that stupid delay.

Thanks for your help.

Moving 3d Object In Dx8
Hi. I have the problem. How can i move sam 3d object in the 3d world in Dx8. This object (for example ball, or cube, or box) i made in 3D STudio Max and i convert it in x file format and i open in vb and show it in 3d world. How i can move this object. How can i change his position cordinates (x,y,z). I speak english very bed and i hope so that you under stand me. I needn't keys set up Me need how can i change cordinates (Which command).

Uf. Hi every bady Miskec

Moving Object
I know there are a few threads on things like this, I have seen them befor but I can't seem to find them. It was a few weeks ago that I last saw them.

I have a circle on the form and I want to be able to move it up if I press up arrow down if I press down arrow and so on, if i do this a few time with different things I could learn to move sprites. Any help please?

Need Help Moving Object !!!!
hey i am making a snake game and whenevermy snake turns i want him to sorta like bend in half and the rest of his body flow along where he moved behind him, i also need to know how to join segments on to him as he eats, how do i do this stuff !?

i posted this message before and someone suggested hat i use the following code, however i don't get what each variable represents and what objects are they on the form if ya know what i mean so i can apply it to my code !?

' a point
Public Type Point
X As Integer
Y As Integer
End Type

' the snake
Dim Snake() As Point

Dim SnakeSize As Integer

Public Sub GameStarts()
ReDim Snake(InitialSize)
SnakeSize = InitialSize
' fill initial positions
End Sub

Public Sub GameIsPlaying()
Dim i As Integer
Dim Tail As Point
Tail = Snake(SnakeSize)
Snake(0) = NewPositionForHead
For i = LBound(Snake) + 1 To UBound(Snake)
Snake(i) = Snake(i-1)
Next i
If EatenAnApple Then
SnakeSize = SnakeSize + 1
ReDim Preserve Snake(SnakeSize)
Snake(SnakeSize) = Tail
End If
' draw the snake in the positions
End Sub

Thanx

Moving An Object
Ok I must be going crazy today something that should be simple is kicking my butt.

I'm trying to set up the code to drag an image around using the mouse this is my code

Code:
Private Sub picImage_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
mDown = True
mStartX = x
mStartY = y

Debug.Print Button
End Sub

Private Sub picImage_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If mDown Then
picImage.Left = picImage.Left - ((mStartX - x) * Screen.TwipsPerPixelX)
picImage.Top = picImage.Top - ((mStartY - y) * Screen.TwipsPerPixelY)

mStartX = x
mStartY = y
End If
End Sub

Private Sub picImage_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
mDown = False
End Sub

Why dosn't this work correctly? It's acting totally insane, if I take out the multiply by the screen.twips* then it works fine but at a very slow pace. I want it to keep pace with the mouse (thus why I was multiplying by the screen twips)

Moving An Object
u guys know when u throw a ball it bounces n when u throw it u go somewhere...well how do i make it so if some happens then lets say a circle is then moving from one spot to another without the .top = .top +100 or something like that

Pic Box, Object To Stop Moving
what im trying to do is make it so that i have one bit picture box and a pong design interface inside it(this is a final assignment im making a variation of pong) anywho what im trying to do(and tryed everything i've thought of) is to get it so that when you drag the padel down it cannot pass the line at the top or the bottom, and both these lines are drawn, not made at runtime. thanks for help

also after you hit the line you cannot go down or up further then the line, and you can continue moving inside the two lines

Moving Object By Mouse!
Ok I have a bit of Newbie problem..(I quess)

I have a form with a (small) pictbox control and like it to move around the form when/where ever I move the mouse. I don't want to drag en drop I don't even want to "click" first before moving. Now I sort of have this working for one small detail. As an object is basicly moved by changing its Left and top posision to x and y there doesn't seem to be a way of moving it by its midpoint possision or in otherwords the center of the object (pictbox) doesn't seem to be stucked to the mouse. So my pictbox only moves when I put my mouse pointer to the left border of the pictbox, the movement is then fine, but when I move to the right, the pictbox doesn't move before I "hit" the right border and then it doesn't move but sort of jumps to the "new" left posision.
making the movement not very smoothly..the same happens up and down! (up works better than down)

So I actually only sort of want to stick my mouse pointer to the center of the pictbox and then move it (maybe I should just use a piece of tape uh..)

Moving An Object Away From The Screen
say i want to move an object farther away from the screen, like going into the distance, right now i got a cube with a black screen and i want it to move back, right now i changed the the z corodinates but it stays the same. should i change all the corodinates for every vertex, or just move the camera away from the object to make it seem like its moving farther away?

Moving An Object On Excel
this is probably pretty basic but im pretty new to vb. how can i move a box concealing a number in one cell to the cell next to it, revealing the number beneath it. it is for a game i'm developing, thanx

Moving Object Across Form
I am making my own version of MDX Studio (MDX Studio being a program that designs an mdx dialog for mIRC) and I need to be able to move an object (ie. drag it), but I can't seem to figure out how.. All I need to start is a way to drag a picturebox, and when it is released I want the box to move to the X,Y position.. Any suggestions?

Moving An Object Via Keypress
Hello guys, i just wanna know what are the keycodes for the cursor keys? I want to use it in a program wherein i can move an object / shape via a keypress method... Thank you very much!!!!

Moving An Object Over A Tile Map
Hi

I have a simple tile map of 6 by 6 picture boxes set in an array with a grass tile in each pic box. I also have a separate picture box that is not part of the tile. I want to make it so when I click the separate pic box, the border style changes(i already did that) and when I right click somewhere else on the tile map, the separate pic box will move there in a straight line. If I were to do this on my own, I would get the xy coords of the upper right separate pic box relative to the tile it is on. Then I would get the xy coords of the different tile I clicked on and move the pic box there... but how do I go about doing this???????????????????????

Thanks in advance

Moving Object By A Centimeter...
Hi,

I have an mage in an image box and when I click a button on my form I want the image box to move in a direction by 1 centimeter, e.g.

Image1.Top = Image1.Top - 1

Whereas '1' is a centimeter instead of just the standard unit.

Any info on how I can do this?

Mark

Create Trail For Moving Object
hey everybody. Im looking for help on a prject of mine. I have made a graphics display program that has a skull bouncing around. What I would like to do is to creae a trail of flames behind him, but could somebody help me on how to do this. It is very puzzling to me. Any help would be much appreciated!

Moving Text Around On A PictureBox Object?
I am wanting to move text from one position in a "PictureBox" to another by seemingly clicking and dragging and having the text appear to be moving along with the mouse pointer.

The text is introduced by the "PictureBox.Print" method. I have tried using the "vbInvert" with the "PictureBox" "DrawMethod" as you would do with lines and circles on the mouse move event, but this doesn't seem to work with fonts as I get a trail of text all over the screen!

At the moment I have worked around this by using a rectangle that represents the boundary of the text in question which is functional but I would like to advance this is possible.

Does anyone have a solution for this?

Thanks in advance, CrazySchmidt.

Collision Detection Moving Object?
Ok im too sure how to explain this but for mt Collision Detection in my
first game im making i need a Line control to move with a Image Control.

But i dont know how seen as it doesnt have .left .top and stuff so
how can i move a Line Control across a form

Problem With Moving Object Interaction
Hi. I hope someone can help me with this (probably physics-related)
problem. Imagine two seperate objects which can create forces (all
angles) to move around.

For example:

this is one object: o

^
|
o o ->
(force to the top) (force to the left)

Now imagine an unflexible connection between those objects. How can I
program these interaction between the two objects (and maybe more
objects later on) ?

For example:

o ->
|
| this combination would cause an circular motion
<- o

o ->
|
| this one would make them move to the right equally
o ->

^
|

o
|
| this would make the construct stand still
o

|
v

In these examples I assumed that both objects have equal masses and
forces.

Thanks for any help.

Regards,

Jan

I Need A Few Tutorials {object Moving/scrolling}
I know the answers to my questions are here somewhere, but I don't exactly have the time to search a whole forum for them. So I am going to ask them here.

I would like a tutorial for making an object jump, I have seen one, but it was quite confusing.. Is there a better one?

I would also like a tutorial for making the tile move when you move an object off the form. Side scrolling game kind of.

Any help would be greatly appreciated. Thanks.

Moving 1 .x Object, Not The Entire Scene
Hello,

i have an application that loads a number of .x files. using the world matrix i can move all the objects at once, but i cannot move just 1 object.

i searched this forum and found a thread "Moving / rotating a model in Direct3D " but no actual code samples existing. I posted a message in the thread, and sent private messages. but i have not received any information back.

so if anyone can please show actual code that moves 1 ,x object, not all the .x objects, please post it here.

thanks,

scot

Moving An Object With Timer QUESTION!
i can't figure it out... i know its really easy too, can someone tell me the code? to make an object move down... something like image1.top + 1 or something.

Moving OLE Object From ACCESS To WORD
Hi there,

I have an ACCESS 97 table which contains text fields and a field of type OLE Object which contains a bitmap image.
I am trying to populate a Word Document with the contents of the database record and have become stuck with the OLE object field.
The Word document contains a table and I have created bookmarks to enable me to the reference various points in it to insert text etc.

The code to move the text from ACCESS to word is along the following lines...

myObj references the Word document

With myObj

.ActiveDocument.Bookmarks("text_field1").Select

.selected.text = Forms!mydbForm.txtTextField

I believe I could use AddPicture or inlineshapes to add an image from an external file, but I would like to know how to add the image to the Word document directly from ACCESS and what the required syntax would be.

Thanks,
Smorty.

Moving Object With Timer, QUESTION
i can't figure it out... i know its really easy too, can someone tell me the code? to make an object move down... something like image1.top + 1 or something.

Moving Object To Produce XY Coordinates
hmm... first of all i hv no idea how to start it.. pls help..

the attachment explains what i want. thanks

VB6 Help With Firing/Shooting At A Moving Object.
I'm trying to create a simple game where an object (command box controlled by you) 'fires' another object (shape, ex. a bullet) at a target that's moving. *you can also move.* I want it to trigger on a KeyDown event; a hotkey. My idea is, press the button, the shape aligns to you (left,top) then finds the angle at which the target was at (its left,top coordinates) when the key was pressed and 'fires' until it collides with either the target or form if the target 'dodged' it.

I have no problem with collision and alignment so don't reply with information about them, please.

I just need help establishing the angle in which the shape/bullet follows, and having it follow it. I'm thinking, use two variables for the X,Y distances something like
Code:
xdis = abs(bullet.left-target.left)
and the correspondent for Y. Then using those two distances and the right angle along with tan-1 (something else I need help with) to find the angle the bullet fires along.

Please help, and if clarification or more information is needed just ask/reply.

Moving Object At Runtime In VB5 *Solved*
hello you all

I am trying to program a designer and i need to be able to drag a textbox around the form, like moving objects around with my mouse. I'm stuck on this since 2 days so far! S.O.S!!! Help! à l'aide!

If any1 has an idea, it would be great to hear! :-)

Thanks alot
Me

How Can I Trap A Moving Object In Another Window?
The object is moving anywhere. It's position is not fixed.
How can i get it's xy-coordinate?

How To PREVENT Mouse From Moving Over An Object??
Hey there all,

If anyone knows a way to prevent the user from moving the mouse pointer over an object on a form (like a textbox, listview, etc.), it'd really help me if they posted an example.

Thanks, no matter the result,

Jason

Important - Moving An Object Clockwise
Hi all,

I know its touch..but i need it.

I have an image object, which is an icon sized image. I need to move it in a circular path without any disturbance. Can anyone suggest me or with some codes?
Anything would be of great help to me.

Keeping A Moving Object On Form
I am trying to make a space game that i guess is similar to space invaders, and I have encountered a small issue.

When you hold down the left and right key it will move the ship in the specified direction, but it will travel off the form if you hold if for to long, how can i keep it form travelling off the form?

this is what i currently have.
Code:Private Const MoveAmt = 120 ' Amount to move the space ship each press of the button.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyLeft: GfxShipf.Left = GfxShipf.Left - MoveAmt ' Move the space ship left.
        Case vbKeyRight: GfxShipf.Left = GfxShipf.Left + MoveAmt ' Move the space ship right.
        Case vbKeySpace 'Reset Space Ship to the center
            GfxShipf.Left = 3000
    End Select
End Sub

Freely Moving Object By Mouse Movement
IS anybody know How can i rotate my object by mousemove?i had wrote code and it is working but after 180 degree it will rotote with reverse order.and i am not able to find where i have made mistake??
is anybody want ples. help me out.

Moving Emails Using The Outlook Object Model
I have a problem moving emails from one folder to another using the Outlook Object Model from Visual Basic.

I have, in my current test, 11 emails in my inbox. I would like to move all of them into a folder called 'test'. For some strange reason not all of them move.

Below is the code that i use.

' Initialise Outlook App
Dim objOutlook As New Outlook.Application

' Initialise name space
Dim objOutlookNameSpace As NameSpace

' Initialise folders
Dim fldInbox As MAPIFolder
Dim fldPersonal As MAPIFolder

' Others
Dim lNumEmailsInInbox As Long
Dim MyMail As Items

' Set the name space to MAPI
Set objOutlookNameSpace = objOutlook.GetNamespace("MAPI")

' Set the pointer to the inbox
Set fldInbox = objOutlookNameSpace.GetDefaultFolder(olFolderInbox)

' Set the pointer to the Test folder (a folder within the inbox)
Set fldTest = fldInbox.Folders("Test")

' How many emails in the inbox?
lNumEmailsInInbox = fldInbox.Items.Count

' Display it on a form
txtNumEmails.Text = CStr(lNumEmailsInInbox)

' Initialise Mail items
Dim MyMailItem As Outlook.MailItem
Set MyMail = fldInbox.Items

' If there are any mail items in inbox
If lNumEmailsInInbox > 0 Then

    ' Loop through each mail in the inbox and move it to test folder
    For Each MyMailItem In MyMail

        Debug.Print ("Moving " + CStr(MyMailItem))
        With MyMailItem
            .Move fldTest
        End With

    Next MyMailItem
Else
    Call MsgBox("No emails in inbox to move", vbAbortRetryIgnore, "Warning")
End If

......
I have tried to incorporate a massive pause in between moving each mail item but that did not work either.
To be precise, i have 11 emails (subject Test 1 through to Test 11). Sometimes 4 or 5 or 6 will only move. It is not the same ones every time. If i keep running the code all emails will eventually move.

Why does this code not move all emails? Help ?????

Array Moving Tonext Object When Not Suppose To
Can someone please look at this code. For some reason my do while loop is checking the next record when it is not suppose to. Coudl someone look at this and see fi this code is correct or if I need to change somethign in one of the functions.

Thanks,

Ryan

Private Sub cmdRegister_Click()
'Checks the Classes form for valid data. If the data is valid the Register
'button will add up the total hours along with activating the CLear button

Dim i As Integer
Dim blnerror As Boolean
Dim inttotal As Integer

i = 0
blnerror = False

Do While i < txtCourse1.Count And blnerror = False
'Call validation then increment i
If IsCourseHoursValid(txtCourse1(i).Text, txtHours1(i).Text) = True Then
blnerror = False
If IsCourseHoursValid(txtCourse1(i).Text, txtHours1(i).Text) = False Then
blnerror = True
ElseIf IsCourseValid(txtCourse1(i).Text) = False Then
Call TextBox_Error(txtCourse1(i), "Course name must be 2 to 4 characters")
blnerror = True
ElseIf IsCreditValid(txtCourse1(i).Text) = False Then
Call TextBox_Error(txtCourse1(i), "The Course is not defined")
blnerror = True
ElseIf IsHoursValid(txtHours1(i).Text) = False Then
Call TextBox_Error(txtHours1(i), "Course Credit Hours are between 1 and 3 hours")
blnerror = True
End If
End If
i = i + 1
Loop

If blnerror = False Then
'Total Hours
For i = 0 To txtCourse1.Count - 1
If txtHours1(i).Text <> "" Then
inttotal = inttotal + txtHours1(i).Text
End If
Next i
If inttotal = 0 Then
MsgBox " You must enter at least one course."
lblHours.Caption = 0
Else
lblHours.Caption = inttotal
End If
Else
'Clear Label
lblHours.Caption = ""
End If

'Enables Clear button
If cmdClear.Enabled = False Then
cmdClear.Enabled = True
End If

End Sub

Remove Flickering When Moving Some Object In Form Using Timer
is there any way to remove flickering when moving some object in form using timer

Some Object Questions.
When one object is set to another, is a new object created, or do they both now just point to the same object? If so, when one of these clone objects is destroyed, is the original object it was pointing to destroyed? Thanks.

Collection Object Questions
ok i have used the Collection but
how can i :
1)go in a loop over all the keys and items and print them?
2) how can i prevent a situation that i try to access to a key that dosent exist!?
thnaks i nadvance
peleg

Object Oriented Questions
There are many (dynamic) students in a classroom. Thus, I want to include a collection of students in my classroom class. So I made the collection a member variable of the classroom class.

Each student object has 5 member variables.

My question is . . . when I add the student objects to the collection, is it best for student records to be created from a UDT (user defined type) or should they be from a class. Since the collection does everything that is necessary to the student object, no methods are needed. Does it matter?

Thanks for any reply.
John

Two Questions About Internet Exploer Object
I want to ask two question about IE object,can anyone help me?!

Q1.Some web site contain a drop down list which will have "onchange" function occur so that when i select a item,something will do.But how can IE object do this propose so that when i set the select the item throung "document.all.item(x)(x).Selected=true",it will have "onchange"happen.if can't,do i need to do with api?

Q2.can ie object handle java script?if not,which control should i use?
(p.s.beacuse some web site will pop up a window which cannot view the source,so i guess it is java script)

File System Object Questions
Can anyone how you can
1. set the font using the file system onject
2. align columns, say i am reading records from a recordset, name, age and sex, i want all of these to be aligned under the correct headings.
i was going to add spacing manually say 50 for the name, 5 for the sex and age, is there a better way?

thanks
Z

A Couple Of Questions About Embedding A Word Object
I have a word object embedded in my project. I would like to be able to manipulate the text within that word object...what are commands to select all text in a word object, capitalize all words, create a marker...and modify the drag mode.

Also, is it possible to prevent the users from deleting text that shows up in the box?

If you know of a good tutorial on word objects that would work just as well....

Thanks,
Jim

Conflicting Names - Moving Controls Of An Object Form To An MDI Form
Hello,

I have two simple question:

1.
I have added to my project a form saved as frmTEST.frm; and i don't know what i have made so now i receive a message error which is:
"Conflicting names were found in 'C:frmTEST.frm'. The name 'frmTest' will be used."
And in the project explorer window i have under 'Forms' folder : frmTEST(frmTEST.frm)

Can anyone tell me how to stop this message error ?? I tried to use Help button under error message window, but still don't know how to fix the problem.

2.
How can i Copy the controls on the object of my form to a new MDI Form ??
I receive an error such as "control don't have align property...error loading clipboard..."

Code For Moving To The First Blank Cell In A Worksheet; Moving Left,right,up Or Down
I have created an application form as a userform in Excel. I need to send the data entered into my text boxes when the program runs to separate excel cells in a worksheet.

My problem is I can use code that will send the textbox entry to a specific cell eg. If my textbox is named Surname I can say

range("a5").value = surname but if I do that when I run the programme to enter the next record for someone else the first record will be overwritten.

I NEED A CODE LINE THAT WILL TAKE ME TO THE FIRST EMPTY CELL AND ALLOW ME TO MOVE DOWN OR TO THE LEFT OR TO THE RIGHT