Ah, I suppose some code may help...
I forgot to attach/post code, so if you need it here it is.
Dim Outline1 As Integer
Dim Outline2 As Integer
Private Sub cmdA_Click()
Outline1 = True
End Sub
Private Sub Command1_Click()
Static WallNum As Integer
WallNum = WallNum + 1
Load Wall(WallNum)
Wall(WallNum).X1 = Circle1.Left
Wall(WallNum).X2 = Circle2.Left ' - 70
Wall(WallNum).Y1 = Circle1.Top ' - 70
Wall(WallNum).Y2 = Circle2.Top '- 70
Wall(WallNum).Visible = True
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Outline2 = True Then
Circle2.Top = Y - 70
Circle2.Left = X - 70
Outline1 = False
Outline2 = False
End If
If Outline1 = True Then
Circle1.Top = Y - 70
Circle1.Left = X - 70
Outline1 = False
Outline2 = True
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = X & ", " & Y
End Sub
Private Sub Timer1_Timer()
End Sub
Private Sub mnuExit_Click()
End
End Sub
Private Sub mnuNewMap_Click()
WallNum = 0
End Sub
Private Sub mnuSimpInst_Click()
MsgBox "To make a wall, click the outline button. Then, click the mouse button twice (different spots on the map for each click) then click create wall... A line will appear. This is a wall. Cant compile yet."
End Sub