Moving MDI Bar

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

---

Moving Balls To Moving Images??
Please take a look at this as it is related to my question
Thread

is it possible for the create images to be an image type that is already drawn?

---

Moving
i want to be able to have a pre drawn square in a corner of a form and allow the user to click and drag it to a new location. it sounds simple enough but i am struggling with it. does somebody have a tutorial on this stuff

---

Moving 360
how do you move a player through 360 so it walks the at 1 or 34 or whatever degrees ?

i attempted throught trig but it had its problems

Code:
Dim dir As Double
Const pi = 3.14159265358979

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft
dir = dir - 10
Case vbKeyRight
dir = dir + 10
Case vbKeyUp
If dir = 90 Then
you.Top = you.Top + 10
Exit Sub
End If
If dir = 180 Then
you.Left = you.Left - 10
Exit Sub
End If
If dir = 270 Then
you.Top = you.Top - 10
Exit Sub
End If
If dir = 360 Then
you.Left = you.Left + 10
Exit Sub
End If

If dir < 90 Then
you.Left = you.Left + 10
you.Top = you.Top + 10 * Tan(dir * pi / 180)
End If
If dir > 90 And dir < 180 Then
you.Left = you.Left - 10
you.Top = you.Top - 10 * Tan(dir * pi / 180)
End If
If dir > 180 And dir < 270 Then
you.Left = you.Left - 10
you.Top = you.Top - 10 * Tan(dir * pi / 180)
End If
If dir > 270 And dir < 360 Then
you.Left = you.Left + 10
you.Top = you.Top + 10 * Tan(dir * pi / 180)
End If

End Select
If dir > 360 Then dir = 0
If dir < 0 Then dir = 360

End Sub

---

Moving
Ok Iam finding this really difficult to do. Iam able to move a shape upwards using this code.


Shape1.Top = Shape1.Top + Vy
When it reaches a specific point I want it to move in the opposite direction so I included this code.

If Shape1.Top = 160 Then

Shape1.Top = Shape1.Top - Vy
End If
I have put this in the timer but when top = 160 the shape stops moving. Why is this/?? Am I doing something wrong here??

---

Moving And Looking In D3d
Well, i have done a little 3d world and i want to be able to move in different directories and looking up & down at the same time. I made something, but if i look up(or down) and then turn left(or right) then it rotates the view so, that the camera turns on it's back (**** it's hard to say what you want, if you're not English)

---

Moving Down One Row
Hi all,

I've tried searching for what, I thought would be simple enough to do, a way to move down one row in my worksheet and select it.

I'm trying to read a table from a database and populate the data into a worksheet.

I've learned how to move to the left (ActiveCell.Next.Select), but after I have written the record, I want to be able to move down to the next row and to the first column.

Here's my code:


Code:
'Starting on row 2 because I have a header.
Range("A2").Select

Do Until rec.AbsolutePosition = adPosEOF

For i = 1 To rec.Fields.Count Step 1 'Loop as many times as there are fields
If ActiveCell.Column = 1 Then
ActiveCell.Value = rec.Fields(i - 1).Value
ActiveCell.Next.Select
Else
ActiveCell.Next.Select
ActiveCell.Value = rec.Fields(i - 1).Value
End If
Next i

rec.MoveNext
'Move down to next row and over to column 1
'I'd like to put "Range(CurrentRow +1 & Column 1).Select" here

Loop

Can't I do this without a row counter?
Any suggestions?
Thanks in advance.

Jason

---

Moving To Web With VB
If I was interested in integrating some vb into a web page, is it possible and how. Any sites you could recommend would be appreciated. I basically just need to know where to look for some direction in putting forms that function like vb listboxes on a webpage...ones that populate automatically...etc..

Or forms, when they are filled in to capture that data like textboxes..etc for use in building data files ...

Thanks in advance

---

Moving My Box
I have a shape (box) on my form that I want to have move across the the screen when I click on a command button. I've tried using the following on the command button but it will only work the one time:


Code:

AccVar = true

If AccVar then

Shape1.Left = Shape1.Left + 10

end if
I assume this is because VB only cycles through the code once (on each button click). I tried putting the IF statement in the Form Load but it didn't work because I assume code only triggers when the form loads. What is the best or any way of getting my box to move when the button is pressed?

Is there any tutorials on the web about moving objects in VB?

---

Moving
OK...

I wanna know how I can make a label move down whenever I press the down key...

can anyone help???

thanks...

---

Moving Exe From Within
is there a way i can move, or copy the EXE thats running into a new location?

---

Moving A Box &gt;&lt;
okay heres the deal. i have a series of images that are arranged like this

xxoxx
xxxxx
xxxxx
xxxxx
xxxxx

in a 5x5 grid of images (images are an array).
and i want to move a box around within them. what i have been doing is changing the image of each box when the user pressed the arrow keys.
so if they press 'down', the current box with an 'o' image in it would change to an 'x' image and the image below that box would become the 'o' image.
(BTW, using x and o is only for simplicity here, there is actually 5 images you can change from).

is there another way to do this? could i have one picturebox and add other pictures to that picture box and move them around within it ? is this possible?

---

Moving To .NET ???
I would like to ask if it is worth the move to VB.net.

I have a program in VB6 which downloads data from a dallas ibutton and simply writes that data to a .csv file for viewing in a spreadsheet.

I also use the mscomm control for hardwire communications to a microprocessor.

Is it difficult to adapt old code to vb.net ?

I have only a basic knoledge of programming, and do not want to create a monster by trying to upgrade.

Any thoughts and opinions would be appreciated.

Cheers,,,
Chris - Western Australia

---

Moving From VBA
Hi,

Being fairly new to programming my exploits have been largely based in Office automation using VBA. I have recently completed a project that uses Excel as the host and takes a couple of .csv files, compares and correlates the data and writes it to a worksheet prior to data manipulation and commitment to a Database.

For my next project I would like to build a stand alone app that basically does the same thing (but obviously doesn't involve Excel) but as I am not a 'trained' programmer I am not sure of the way in which a dataset should be built without somewhere to write it i.e. a cell in a worksheet.

Most of my data during the execution of the present program is contained within a number of arrays but the data is handled as a subset of the complete data.

What method would you suggest for this? Create a multi dimension array which basically functions like a worksheet?

Also the handling of writing the data to a Database is easliy handled via DAO at present from within Excel - does VB allow me to do this in the same manner?

Sorry for the general nature of the questions but I am more interested in how an experienced programmer would tackle this.

Thanks in advance.

---

Moving From DB To Other DB
Hi to all, I have this question:

I need to move some records from my database to other database (these DB's are equals), my porpouse is make a Backup for some records and minimize the size of the DB. I found in the MSDN library the clausule IN, but I don't know how use it.


Note: I'm using MS Access 2000 Databases


Thanks in advance !

---

Non Moving GIF's
Hello Everyone:

I am trying to use animated GIF’s in my form, but they are not moving? I know that they are animated because I can view them using the filmstrip option in MS XP? How did I make my Animated GIF’s start moving?

Thanks

Art

---

Moving To VB.NET From VB6
Hello, my boss is considering the idea of migrating to VB.NET. He asked me to do some research into the advantages of using VB.NET 2005 instead of VB6.

What can you do in VB.NET that cannot be done in VB6?

Any help will be appreciated.

---

Moving
I have a script that you can move your character around using the arrow keys, problem is it "moves" it there, so it looks all jagidy and not a smooth move. Is there anyway to make it smooth and not jagidy?

---

Moving A Pic..
First off, sorry for all the quesions lately, i thirst for knowledge!

now to my question.
Ive read around about moving a picture (lets just say a pic of the letter Y) or a label of it for that matter.
ive found the picture1.height and .width and stuff, but i cant seem to get them to work.
i also cant get the keyasiis for the ^ < > / keys, they dont print..
i just wanna get a letter or something to move around the screen, and build it into a pong game..

---

Moving On
I've only really started learning VB, but I want to move onto CC++. It'd be great if someone could list the Pros and Cons of C for me

(Also, I'm stuck on the decision of whether I should start small, with C, or dive in the deep end with C++)

One more thing!!!
Where can I find a good tutorial on programming for 32-bit Windows? all I've seen C do so far is output to the command (DOS) window.

Thanks in advance

---

Moving Right
I made an user control and within this code I have it moving to the left:

Private Sub cmdshift_Click()
Dim iX As Integer
For iX = 1 To 5600
frmBaseball.axyankees20011.Left = iX
frmBaseball.axyankees20011.Right = iX
Next iX
End Sub

Now within the same code how do I make it move back to the left side. Therefore moving it to the right

Look here:

I have the logo moving this way

---------------------->

Now I want it to go back to where it started

<--------------------



See where i am trying to go with this

What do I need to add to the code!

---

Moving From VB5 To VB6
I'm considering moving all my apps from VB5 to VB6. There's a mixed bag of apps that I would be converting, most of them using databases in some form or another (which I was under the impression would be the only problem I'd have converting).

Is there any good reason why I should convert my apps, and if not, am I opening myself up to a world of pain trying it?

---

Need Help Moving Next
Hi Everyone,

I currently have a VB6 form with four text boxes on it. I am using the following SQL statement to pull data from an Access table with three fields on it. Date, items, and Total. The SQL statement is sorting the data into groups by date and then adding the group totals. My question does not deal with the SQL statement but with the form. In the first text box I have the first group date. In the second text box I have the first group total. I want the third text box to have the second group date and the fourth text box to have the second group total in it. I am not sure how to retrieve the second groups date and totals. Any suggestions on how to do this. I would appreciate any help. Thank you.


SELECT DateField, SUM(TotalField) As Total FROM YourTable GROUP BY DateField ORDER BY DateField ASC

---

Moving PDF's
I'm trying to move a group of PDF's from one folder/staging area to another folder for processing.  There are going to be about 1000 400KB pdf's.  What is the most efficient way to do this?
Here is what I have tried but it is slow...
------------------------------------------------------------
If mFs.FolderExists(FolderSpec) Then
 Set mFolder = mFs.GetFolder(FolderSpec)
 On Error Resume Next
     For Each mFile In mFolder.Files
        space = InStr(1, mFile.DateCreated, " ")
        TimePrinted = mFile.DateCreated
        DatePrinted = Trim(Mid(mFile.DateCreated, 1, space))
        CompareDate = Month(wrkQueryDate) & "/" & Day(wrkQueryDate) + 1 & "/" & Year(wrkQueryDate) & " 12:00:00 AM"
        CompareHours = DateDiff("h", TimePrinted, CompareDate)
        If (12 > CompareHours) And (CompareHours > -12) Then
            MoveTo = (Environment & "" & mFile.Name)
            Debug.Print MoveTo
            mFile.Copy MoveTo, True
            
            mFile.Delete
            Kill (mFile)
 ' - what is the diff between .delete and kill()?
            
            i = i + 1
        End If
     Next
End If

---

Help Please!VB Moving With Vb
Hi
I have a problem with my code
I have a label in my form which displays the current record number
I used a intRecNum variable to increment in the next cmd click event
And decremented it in the prev cmd click event
If bof is true then I move to the first record and set the intRecNum var to 1
If eof is true then I move to the last record and set the intRecNum var to recordCount property
The problem is I ‘m getting negative values in the intRecNum when I move away from the first record instead of 1 and instead of staying in the first record i move to another record.
Also I’m having problems with my add cmd click procedure
When I click on add cmd an empty record gets entered into my table even if I don’t update
This is my code

Please somebody help me
'Action for Previous
            
            SRCFill
            AgentFill
            SalesPersonFill
            ServiceTypeFill
            CategoryFill
            
            AssignValuesToForm
            If objRst.BOF = True Then
             objRst.MoveFirst
             intRecNum = 1
            End If
            
            If objRst.EOF = True Then
             objRst.MoveLast
             intRecNum = objRst.RecordCount
            Else
             intRecNum = intRecNum - 1
             objRst.MovePrevious
            End If
            lblRecNumber.Caption = intRecNum & " Of " & objRst.RecordCount
        Case 1
            'Action for Next
            
            SRCFill
            AgentFill
            SalesPersonFill
            ServiceTypeFill
            CategoryFill
            Debug.Print "Before assign"
            
            AssignValuesToForm
            If objRst.BOF = True Then
             objRst.MoveFirst
             intRecNum = 1
            End If
            
            If objRst.EOF = True Then
             objRst.MoveLast
             intRecNum = objRst.RecordCount
            Else
             intRecNum = intRecNum + 1
             objRst.MoveNext
            End If
            lblRecNumber.Caption = intRecNum & " Of " & objRst.RecordCount

        Case 2
            'Action for Add
            SRCFill
            AgentFill
            SalesPersonFill
            ServiceTypeFill
            CategoryFill
            
            ClearForm
            
            objRst.AddNew
            If AssignValuesToRec = True Then 'assign values to rec is a procedure which
             objRst.Update 'returns true if all values were assigned to
            Else 'objRst without any errors
             Exit Sub
            End If

Thanks
shamala

---

Moving Thru A Db
Ok, I remember doing this once in high school, but I was using VB4. I remember using a data control and using somthing along the lines of Code: Data1.Move(NextLastFirst*something else*)

This doesnt work in VB6. At least I can't get it to. Am I wrong on the statement, or did it change or what?

Thanks.

--NoxEternal



Edited by - NoxEternal on 11/8/2001 9:10:24 PM

---

Moving
Ok so I want to move an image around the screen by using the arrow controls. If the user holds down the left arrow I want it to keep moving left. How do I do this?



--------------------------
You just have to accept that some days your the pigeon and some days your the statue

--------------------------------------------------

'If a man ask you a question just reply 42, if he asks you what you mean, give him a calculater'

-------------------------------------------------

Longhorn is just like Labour, All promises and no show

---

Moving Dll's
what is the process for moving a DLL from one pc to another via Terminal Services???

---

Moving A VB App To The Web
I have a client-server application developed in Visual Basic 5, which has an Oracle 8 database (on Unix) and uses Crystal Reports 7 for the reporting functionality.

There is discussion of making this application a web application, so the user can run it through a browser and won't have a workstation installation or upgrades of the application.

Are there any suggestions about which tools to use (i.e., get trained for) to do this? Should I plan on re-writing it in Java or stick with VB and if I stick with VB, how can I make it web-enabled?

Thank you in advance! I will be checking back, but also feel free to email me at:
kymberlie.stefanski@ameritech.com

---

Help! I'm Moving To .NET
HELP! I just accepted a job where the development environment is migrating to .NET. They will be sending me to training. Is it that much different than VB? I hope I did the right thing! Any comments?

---

Moving?
How do you make it so that something will move left then up, then right, and then down?

--Ant
--------------------------------------------------
check out my newest freeware
E-mail me at: cgeorge@thevortex.com
for the address

---

Moving To DLL
I have 3 applications that use the same set of class modules. I was thinking about creating a .DLL that these class modules could reside in, so that when I update the .DLL the changes propagate to all the apps.

My question is, if I update the .DLL [i.e. add a Function], will I have to re-register the .DLL on each of the clients running one of these apps?

Nathan

---

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 Toolbars
hi..
I think I couldn't explain what I want..in the attachments there is a picture that explains what I want to do ..
thanks for help..

---

Moving Toolbars
Hello
I have webdynamictoolbar component in my form..and I want the user to move(change position) or close these toolbars..how can I do this??
thanks..

---

Image Moving
vb6.0
Hi,

id like to know how to move a picture inside an picture box without moving the box but only the picture inside it. like, i have a 2000x2000 picture in a 400x400 picture box and wat i want is for it to show inside it and then i move the picture to see differ parts of it while the picture box remains in the same place.


Thank you.

---

Moving Files
VB 6

Need to find away to simply move files(Test.exe) from on location to another.

I have tried FileCopy it act like I have not include the correct libray or component for that function?

Help Quick

Michael Webb

---

Moving A From = False
ow can i limit the user from draging a form....i have a midiform and i have a toolbar on the left...how can i have it locked from being moved?
thanks-tim

---

Moving Images
Example Code (moving up):


Code:
Private Sub cmdUp_Click()

imgImage.Top = imgImage.Top - 100

If imgImage.Top < 0 Then
imgImage.Top = 11520
End If
End Sub

Example Code 2 (moving left):


Code:
Private Sub cmdLeft_Click()

imgImage.Left = imgImage.Left - 100

If imgImage.Left < 0 Then
imgImage.Left = 15360
End If
End Sub

Question:

How would one move imgImage Up & Left

---

Moving Around File
if I need to delete a certain line from a file, how can i move to that line in write mode?

---

Moving Images
Hi, I'm somewhat new to Visual Basic 6.0, and I'm trying to move an image on a form. That I have done, and I am moving the image via the arrow keys (with the KeyDown procedure), but the problem is that when you press down one of the arrow keys, ya know how it always registers once, and then if you keep holding it down, it registers as a constant stream of input by that key. Umm.. for example, in Microsoft Word, if you hold down the "a" key for example, the program types one "a", then pauses for about a little less than a second, and then proceeds to output a constant stream of A's. Sorry if it is a little hard to understand, but that is what I want to get rid of. My program (which is basically a spin-off from Lunar Lander) moves the rocket image up on the form when the user holds the up arrow key. However, when the user holds the up key, I want it to move the image up at a constant speed, not go through the KeyDown procedure once, pause, and then go at a constant speed. Can anyone help me?

---

Moving Along A Line
Im fairly new to vb so im not sure if this is possible or not..
I have a picture box, is there any way to move it along a line (e.g y=x) from its current position?

---

Moving A Shape
I am wanting to move a shape using the arrow keys but everytime i press an arrow key i get a message saying invalid use of property what can i do to get this to worK???

---

The Moving Shape.
I have a circle shape on a form and the following code in a Timer Control
(Interval = 1000): Shape1.Left = Shape1.Left + 100

I want to move the shape left by 100 twips every second. That works fine but I am having trying to write code to stop the shape when the Shape1.Left property = 2000.

Can anyone help ?
Fogless.

---

Seeing The Image While Moving It
How to move an Image (or a PictureBox) over a Form and see the image, not only its surrounding frame, during the move phase. Basically, my code looks as follows:

[vbtemp]
Private Xi As Single
Private Yi As Single

Private Sub Card_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
Card(Index).Drag vbBeginDrag
Xi = X
Yi = Y
End If
End Sub

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move X - Xi, Y - Yi
End Sub

Private Sub Card_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single)
Source.Move Source.Left + X - Xi, Source.Top + Y - Yi
End Sub
[/vbtemp]

The 'Card' is an Image (or a PictureBox) located in a control array. The code works fine, but I can't see the card face while I'm moving it.

---

Moving Lines
I have a canvas to the right of a window and a toolbox to the left. The user drags elements from the toolbox to the left and drops them on the canvas. Then he can move the elements drawn on the canvas around it by dragging them around the canvas area. He can also link two or more elements by right clicking and dragging in between the elements he wishes to link on the canvas.

Till here all's working well. I am now attempting to move the links associated with an element while the element is being dragged (with the left mouse button) on the canvas. For this, I use rubber banding (the XOR raster operation R2_NOT). A snapshot shows you how it works as of now and what is the problem I am facing. Can you advise me why the lines are not being erased properly.


Code:
Private Sub picCanvas_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)


Dim LngCounter As Long

If Button = vbLeftButton Then
If LngNumberOfANSIToolsOnBoard > 0 Then
For LngCounter = 0 To LngNumberOfANSIToolsOnBoard - 1
If PtInRect(ANSIToolsOnBoard(LngCounter).Dimensions, X, Y) Then
LSet PreviouslySelectedToolOnBoard = ANSIToolsOnBoard(LngCounter)
CurrentOffsetX = X - ANSIToolsOnBoard(LngCounter).Dimensions.Left
CurrentOffsetY = Y - ANSIToolsOnBoard(LngCounter).Dimensions.Top
SelectedElementType = ANSIElement
LngToolIndexInToolBox = ANSIToolsOnBoard(LngCounter).DrawingToolIndex
BoolIsElementBeingDraggedFromCanvas = True
LngSelectedANSIToolOnBoardArrayIndex = LngCounter

EraseTextRectangle

Exit Sub
End If
Next LngCounter
End If
If LngNumberOfOtherToolsOnBoard > 0 Then
For LngCounter = 0 To LngNumberOfOtherToolsOnBoard - 1
If PtInRect(OtherToolsOnBoard(LngCounter).Dimensions, X, Y) Then
LSet PreviouslySelectedToolOnBoard = OtherToolsOnBoard(LngCounter)
CurrentOffsetX = X - OtherToolsOnBoard(LngCounter).Dimensions.Left
CurrentOffsetY = Y - OtherToolsOnBoard(LngCounter).Dimensions.Top
SelectedElementType = OtherElement
LngToolIndexInToolBox = OtherToolsOnBoard(LngCounter).DrawingToolIndex
BoolIsElementBeingDraggedFromCanvas = True
LngSelectedOtherToolOnBoardArrayIndex = LngCounter

EraseTextRectangle

Exit Sub
End If
Next LngCounter
End If


ElseIf Button = vbRightButton Then

In the MouseMove I call a method called MoveLinks in order to move the links associated with the drawing element while the drawing element is being moved.


Code:

Dim LngCounter As Long

MDI.sbrWorkflowDesigner.Panels("sbrpnlMouseCo-ordinates").Text = X & ", " & Y
MDI.sbrWorkflowDesigner.Panels("sbrpnlToolTips").Text = vbNullString

If Button = vbLeftButton Then
If BoolIsElementBeingDraggedFromCanvas Then
Call MoveTool(X, Y)
If PreviouslySelectedToolOnBoard.IsLinked Then Call MoveLinks(X, Y)
End If

ElseIf Button = vbRightButton Then
'Blah.....blah...blah...


The MoveLinks method is code listed below:


Code:
Public Sub MoveLinks(ByVal X As Long, ByVal Y As Long)

If PreviouslySelectedToolOnBoard.IsLinked Then
If PreviouslySelectedToolOnBoard.NumberOfLinks > 0 Then
For LngCounter = 0 To UBound(PreviouslySelectedToolOnBoard.Links)

MoveToEx frmCanvas.picCanvas.hDC, PreviouslySelectedToolOnBoard.Links(LngCounter).ToPoint.X, _
PreviouslySelectedToolOnBoard.Links(LngCounter).ToPoint.Y, _
ByVal 0&

SetROP2 frmCanvas.picCanvas.hDC, R2_NOT

LineTo frmCanvas.picCanvas.hDC, PreviouslySelectedToolOnBoard.Links(LngCounter).FromPoint.X, _
PreviouslySelectedToolOnBoard.Links(LngCounter).FromPoint.Y


MoveToEx frmCanvas.picCanvas.hDC, PreviouslySelectedToolOnBoard.Links(LngCounter).ToPoint.X, _
PreviouslySelectedToolOnBoard.Links(LngCounter).ToPoint.Y, _
ByVal 0&

SetROP2 frmCanvas.picCanvas.hDC, R2_NOT

LineTo frmCanvas.picCanvas.hDC, X, Y
With PreviouslySelectedToolOnBoard.Links(LngCounter)
With .FromPoint
.X = X
.Y = Y
End With
End With
With PreviouslySelectedToolOnBoard.Links(LngCounter)
With .PreviousPassThroughPoint
.X = X
.Y = Y
End With
End With

Next LngCounter
End If
End If

End Sub

---

Moving Files
Hello masters! im pretty new in VB6...
my problem is this: I need to write a code wherein the program can do a "cut and paste"

Like this.
I have a file (c:untitled.txt)
in which i want to move (cut) to (d:untitled.txt)

thanks for any input!

---

Moving An Image
I tried borrowing the code from ?????'s pacman example

Code:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'figure out where we WANT to go....
Select Case KeyCode
Case vbKeyLeft:
ShpTestShooter.Move -350
Case vbKeyRight:
ShpTestShooter.Move 350
End Select
End Sub


Private Sub Form_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case vbKeyLeft:
ShpTestShooter.Move -350
Case vbKeyRight:
ShpTestShooter.Move 350
End Select
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft:
ShpTestShooter.Left = ShpTestShooter.Left - 350
Case vbKeyRight:
ShpTestShooter.Left = ShpTestShooter.Left + 350
End Select
End Sub

arrrrggggh!!
how did he managed to get his pacman working???
My program refused to respond to my pressed keys
which are arrow buttonws
Put a breakline, it absolutely refused to go there

---

Moving Controls
I am new to VB and am having a tough time trying to figure out the solution to a problem. Is there any way I can move a control (say a button) from one form to aanother dynamically ?
Does VB support this at all or do I have to create a new button everytime to create a switch effect.

---