Try
Code:
Private Sub Command1_Click()
    Shell "control main.cpl", vbNormalFocus
End Sub