Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Bt1.Enabled = IIf(T1 <> "" And Cb1 <> "" And Cb2 <> "" And (OptionButton1 Or OptionButton2) _
And (T2 <> "" Or T3 <> "" Or T4 <> "" Or T5 <> ""), 1, 0)
End Sub