Label hvor musen er

Den forstår jeg ikke helt... ?

Jeg kan hjælpe dig med at flytte Label:

\'Flyt Label1
Public FlytLabel
Public IX As Integer, IY As Integer, TX As Integer
Public TY As Integer, FX As Integer, FY As Integer

Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    IX = X: IY = Y
If Button = 1 Then
    IX = X: IY = Y
    FX = Label1.Left: FY = Label1.Top
    FlytLabel = 1
End If
End Sub

Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
    Label1.Move FX + (X - IX), FY + (Y - IY)
    FX = Label1.Left: FY = Label1.Top
End If
End Sub

Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    FlytLabel = 0
End Sub
\'Flyt Label1

Eller sådan, klik på form og Label1 vil komme til syne flyt musen væk fra Label1 og Label1 vil forsvinde. ;)


Private Sub Form_Load()
Label1.Visible = False
End Sub

Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.Visible = True
    Label1.Move X - 150, Y - 150
End Sub

Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Visible = False
End Sub

Du kan også gøre det med højerklik:

Private Sub Form_Load()
Label1.Visible = False
End Sub

Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
    Label1.Visible = True
    Label1.Move X - 150, Y - 150
End If
End Sub

Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Visible = False
End Sub

Tak - men jeg har lige lidt mere, så jeg afsætte lige nogle flere points.

Når man klikker på list2, skal label1 tekst være den tekst, som står på samme linie, som man klikker på, bare i list3.
Jeg håber i forstår

Private Sub List2_Click()
    Label1.Caption = List3.List(List2.ListIndex)
End Sub