‘Programlarınıza renk getirir sanırım.
‘bir tane commondialog 1 tanede command ekleyin kodu yapıştırın…

Option Explicit
Dim renk
Private Sub Command1_Click()
CommonDialog1.ShowColor
renk = CommonDialog1.Color
Form1.BackColor = renk
Open App.Path & “\ayar.asm” For Output As #1
Print #1, renk
Close #1
End Sub

Private Sub Form_Load()
If Dir(App.Path & “\ayar.asm”) = “” Then Exit Sub

Open App.Path & “\ayar.asm” For Input As #1

Do While Not EOF(1)
Input #1, renk
Form1.BackColor = renk
Loop

Close #1

End Sub