Private Sub Command1_Click()

Public Sub Command1_Click()

Call Form1.Command1_Click

'Alle anderen Dim Farbe(190) entfernen!
Option Explicit
Private Farbe(190) As Long
 
 
Private Sub Hole_Farben()
 
Dim FF As Integer, Zeile As String
Dim Pos1 As Integer, Pfad As String
Dim Index As Integer, Mldg As String
Dim C1 As Integer, C2 As Integer, C3 As Integer
 
'Aufbau der Textdatei: (ohne Kommentarzeichen)
'Farbe(0) = RGB(157, 195, 221) 
'Farbe(1) = RGB(147, 190, 220)
'...
'Farbe(189) = RGB(135, 47, 6)
'Farbe(190) = RGB(78, 0, 117)
 
Pfad = "C:\Fraktal\Palette1.txt"
If Dir(Pfad) = "" Then
  Mldg = "Datei:" & vbCr & Pfad & vbCr & "nicht gefunden."
  MsgBox Mldg, vbExclamation + vbOKOnly
  End
  Exit Sub
End If
FF = FreeFile
Open Pfad For Input As #FF
  Do Until EOF(FF)
    Line Input #FF, Zeile
    Zeile = UCase(Trim(Zeile))
    If Zeile <> "" And Left(Zeile, 1) <> "'" Then
      Do
        Pos1 = InStr(Zeile, " ")
        If Pos1 > 0 Then
          Zeile = Left(Zeile, Pos1 - 1) & Mid(Zeile, Pos1 + 1)
        End If
      Loop While Pos1 > 0
      If Left(Zeile, 6) = "FARBE(" Then
        Index = Val(Mid(Zeile, 7))
        Pos1 = InStr(Zeile, "RGB(")
        C1 = Val(Mid(Zeile, Pos1 + 4))
        Pos1 = InStr(Zeile, ",")
        C2 = Val(Mid(Zeile, Pos1 + 1))
        Pos1 = InStr(Pos1 + 1, Zeile, ",")
        C3 = Val(Mid(Zeile, Pos1 + 1))
        Farbe(Index) = RGB(C1, C2, C3)
      End If
    End If
  Loop
Close #FF
 
End Sub