Click project -> Add Components -> Add Common Dialog Control 6.0
Step 2
Create the Form
Private Sub Command1_Click()
Me.CommonDialog1.ShowColor
Me.Label2.ForeColor = Me.CommonDialog1.Color
Me.Label2.Caption = Me.Text1.Text
End Sub
Private Sub Command2_Click()
Me.CommonDialog1.ShowFont
Me.Label2.FontSize = Me.CommonDialog1.FontSize
Me.Label2.Caption = Me.Text1.Text
End Sub