Option Explicit
 
Public Sub werteObjektInfoAus(sForm As String, sObjekt As String)
    MsgBox "Geklickte wurde: " + sForm + "." + sObjekt, vbInformation
    If sForm = "Form1" Then
        If sObjekt = "Line1" Then
            Form1.Line1.BorderStyle = vbBSDot
        End If
    End If
End Sub
 
Private Sub MDIForm_Load()
    Form1.Show
End Sub

Option Explicit
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
    If X > Line1.X1 - 50 And X < Line1.X1 + 50 And _
       Y > Line1.Y1 - 20 And Y < Line1.Y2 + 20 Then
        Call MDIForm1.werteObjektInfoAus("Form1", "Line1")
    End If
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1