Private Sub Type_AfterUpdate()
Select Case Type.value
Case "Software"
Form_Actionreg.Workstation.Visible = True
Form_Actionreg.Workstation_Label.Visible = True
Form_Actionreg.Modelw.Visible = True
Form_Actionreg.Modelw_Label.Visible = True
Form_Actionreg.Comments.Visible = True
Form_Actionreg.Comments_Label.Visible = True
Form_Actionreg.Software.Visible = True
Form_Actionreg.Software_Label.Visible = True
Case "Install"
Form_Actionreg.Workstation.Visible = True
Form_Actionreg.Workstation_Label.Visible = True
Form_Actionreg.Modelw.Visible = True
Form_Actionreg.Modelw_Label.Visible = True
Form_Actionreg.Asset.Visible = True
Form_Actionreg.Asset_Label.Visible = True
Form_Actionreg.Serial.Visible = True
Form_Actionreg.Serial_Label.Visible = True
Form_Actionreg.ActionRequired.Visible = True
Form_Actionreg.ActionRequired_Label.Visible = True
Form_Actionreg.ActionTaken.Visible = True
Form_Actionreg.ActionTaken_Label.Visible = True
End Select
End Sub
Please note that you have to make your above controls set to Visible = False in onCurrent Event of the form so all your controls will remain hidden until you choose any option from the combobox.
Also avoid to naming the reserved words like type etc for your controls on the form, using so would create errors while executing.