I am creating a harbour management system and have nearly finished it but I have been stuck on the same problem for about 3 hours now and it's stressing me out!

I have a picture of the harbour and the users are gonna be able to click on the individual boats and view the information about that particular boat on the screen. I have worked out all the co-ordinates needed but I need to be able to re-use the same form rather than have a different form for each boat.

I am able to click on each boat and bring up the form but I don't know how to display the different information for each boat.

The code I have so far is below:

Private Sub cmdExit_Click()
End
End Sub

Private Sub cmdViewlifeguard_Click()

Load Lifeguardlist
Lifeguardlist.Show
Unload MainMenu

End Sub

Private Sub Command1_Click()
Load Mooringslist
Mooringslist.Show
Unload MainMenu
End Sub

Private Sub Form_Load()
Label2.Caption = Date
Picture1.Picture = LoadPicture("C:\harbour management\harbour2.jpg")
End Sub


Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

If X < 4740 And X > 4290 And Y < 3525 And Y > 3480 Then
Load Mooringinfo
Mooringinfo.Text1

Unload MainMenu

End If

If X < 4590 And X > 4095 And Y < 3285 And Y > 3150 Then
Load Mooringinfo
Mooringinfo.Show
Unload MainMenu

End If

If X < 4560 And X > 4065 And Y < 3075 And Y > 2940 Then
Load Mooringinfo
Mooringinfo.Show
Unload MainMenu

End If

If X < 4560 And X > 4110 And Y < 2850 And Y > 2730 Then
Load Mooringinfo
Mooringinfo.Show
Unload MainMenu

End If

If X < 4500 And X > 3945 And Y < 2655 And Y > 2580 Then
Load Mooringinfo
Mooringinfo.Show
Unload MainMenu


End If
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = "X: " & X & " Y: " & Y

End Sub

Private Sub Timer1_Timer()
Label1.Caption = Format(Now, "Long Time")
End Sub