Select Case ActiveForm.Name
  Case "frmWiderstand"
    SetVariablen 1, 0, 0, 0, 0, 0, 0
 
  Case "frmSonstiges"
    SetVariablen 0, 1, 0, 0, 0, 0, 0
 
  Case "frmKondensator"
    SetVariablen 0, 0, 1, 0, 0, 0, 0
 
  Case "frmICs"
    SetVariablen 0, 0, 0, 1, 0, 0, 0
 
  Case "frmFETs"
    SetVariablen 0, 0, 0, 0, 1, 0, 0
 
  Case "frmDioden"
    SetVariablen 0, 0, 0, 0, 0, 1, 0
 
  Case "frmBipolareTransistoren"
    SetVariablen 0, 0, 0, 0, 0, 0, 1
End Select

Private Sub SetVatriablen(nModusW As Integer, _
  nModusSonstiges As Integer, _
  nModusK As Integer, _
  nModusICs As Integer, _
  nModusUniTrans As Integer, _
  nModusDioden As Integer, _
  nModusBiTrans As Integer
 
  ModusW = nModusW
  ModusSonstiges = nModusSonstiges
  ModusK = nModusK
  ModusICs = nModusICs
  ModusUniTrans = nModusUniTrans
  ModusDioden = nModusDioden
  ModusBiTrans = nModusBiTrans
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de