Private Sub Check1_Click()
  If Check1.Value <> 0 Then
    sString = sString & "-console"
  Else
    sString = Replace(sString,"-console", "")
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de