Hej Michael!
Prøv at lave et array (du klikker på textbox og laver "ctrl + c", klikker på form og dernæst "ctrl + v", så spørger
den om du vil lave et kontrol-array) af textbokse på en Form (det giver simplere kode). Følgende kode er meget
simpel og det virker ikke særligt godt, men det er en start:
Private Sub Text1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If (Button = vbLeftButton) Then
Text1(Index).Left = X
Text1(Index).Top = Y
End If
End Sub
Det er blot at spørgsmål om at registrere mouseevents og så hvor meget musen flyttes mens venstre museknap
er i bund. Det kan tænkes at du i mouse_down event skal gemme hvor drag-event starter og så i et mouse_up
event registrerer hvor den slutter osv, det kræver en del eksperimentering. Du kan også lave User Controls som du
flytter rundt på, forskellen er bare at User Controls lever deres eget liv (i hver deres tråd) og du skal bede parent
(Formen) om at flytte den rundt, f.eks. ved at lave et "raiseevent mouse_drag_moved(x,y)" som Formen modtager og
reagerer på. Det kan man bruge megen tid på! Det fede ved User Controls er at du kan lave hvad som helst og genbruge
dem rundt omkring, med forskellige properties evt. såsom bagrundsfarve og font som du så kan sætte fra parent eller
i design-mode. Man kan virkeligt rode sig ud i meget her og gøre det rigtigt lækkert. God arbejdeslyst du, håber dette
hjalp dig i den rigtige retning.