It might work, but it's TERRIBLE code! Look at all those Else Ifs!
This is a better way:
Code:
Select Case a
Case "mnuMasterParameterSetupCabang"
frmCabang.Show vbModal
Me.Hide
frmauth.txtUserName.Text = ""
frmauth.txtP***word.Text = ""
End Case
Case "Something else"
'Do this is a = 'Something else'
End Case
End Select