Een label saven naar een text file (vb6)

[satriano]

Goed avond

Met onderstande Code kan ik 2 textboxen en 3 comboboxen saven met naam
naar een file e terug loaden.

Private Sub Load_Click()
 
CommonDialog1.Filter = "Tekst|*.txt"
CommonDialog1.ShowOpen
Call LoadText(CommonDialog1.filename, Text1)
End Sub
 
Private Sub LoadText(file As String, Text1 As TextBox)
Dim H As Integer
Dim L As String
 
Dim i As Integer
 
H = FreeFile
Open file For Input As #H
While Not EOF(H)
Line Input #H, L
Text1.Text = Text1.Text & L & vbCrLf
Line Input #H, L
Text2.Text = Text2.Text & L & vbCrLf
Line Input #H, L
Combo1.ListIndex = CLng(L)
Line Input #H, L
Combo2.ListIndex = CLng(L)
Line Input #H, L
Combo3.ListIndex = CLng(L)
Wend
Close #1
 
Private Sub Save_Click()
 CommonDialog1.Filter = "Tekst|*.txt"
CommonDialog1.ShowSave
Call SaveText(CommonDialog1.filename, Text1)
 
End Sub
 
Public Sub SaveText(file As String, Text1 As TextBox)

  Open file For Output As #2
  Print #2, Text1.Text
  Print #2, Text2.Text
  Print #2, Combo1.ListIndex
  Print #2, Combo2.ListIndex
  Print #2, Combo3.ListIndex
  Close #2

Ik zou nu willen ook een label mee saven en loaden
Die label gebruik ik als viewer om een gekozen kleur tonen
ik gebruik om een kleur te kiezen in de kleurtablet dit code:

Private Sub Label1_Click()
CommonDialog1.ShowColor
Label1.BackColor = CommonDialog1.Color
End Sub

Kan iemand mij helpen aan een stuk code om OOK de (gekleurde)
Label te saven, samen met de 2 textboxen en de combo boxen?

Dank u
satriano

 

[satriano]

ik heb opgelost door een andere routine te gebruiken.
Topic mag gesloten worden.
Toch bedankt

satriano.