Private Sub Command1_Click() c1.Action = 1 'Dosya Aç End Sub Private Sub Command2_Click() c1.Action = 2 'Farklı Kaydet End Sub Private Sub Command3_Click() c1.Action = 3 Text1.BackColor = c1.Color 'Renk paletini aç ve text1 arkaplan rengini değiştir End Sub Private Sub Command4_Click() c1.Action = 4 'yazı Tipleri End Sub Private Sub Command5_Click() c1.Action = 5 'yazıcılar End Sub