Определить будут ли прямые A1x+B1y+C1 и A2x+B2y+C2 перпендикулярны

Private Sub Command1_Click()
A1 = Val(Text1)
B1 = Val(Text2)
C1 = Val(Text3)
A2 = Val(Text4)
B2 = Val(Text5)
C2 = Val(Text6)
k1 = -A1 / B1
k2 = -A2 / B2
pi = 3.14
 
If k1 * k2 = -1 Then
Picture1.Print ("Ïðÿìûå ïåðïåíäèêóëÿðíû")
Else
ug = Abs((k2 - k1) / (1 + k1 * k2))
ugol = Atn(ug) * 180 / pi
Picture1.Print "Ïðÿìûå íåïåðïåíäèêóëÿðíû"
Picture1.Print ugol
End If
End Sub

Private Sub Command1_Click()
pi = 3.14
1:
a1 = Val(InputBox("Введите значение коэффицента A1 для уравнения прямой A1x+B1y+C1=0", "Ввод данных"))
b1 = Val(InputBox("Введите значение коэффицента B1 для уравнения прямой A1x+B1y+C1=0", "Ввод данных"))
C1 = Val(InputBox("Введите значение коэффицента C1 для уравнения прямой A1x+B1y+C1=0", "Ввод данных"))
If (a1 = 0 And b1 = 0) Then
MsgBox ("Это не прямая, A1 и B1 не должны равняться нулю одновременно, повторите ввод,")
GoTo 1
End If
2:
a2 = Val(InputBox("Введите значение коэффицента A2 для уравнения прямой A2x+B2y+C2=0", "Ввод данных"))
b2 = Val(InputBox("Введите значение коэффицента B2 для уравнения прямой A2x+B2y+C2=0", "Ввод данных"))
C2 = Val(InputBox("Введите значение коэффицента C2 для уравнения прямой A2x+B2y+C2=0", "Ввод данных"))
If (a2 = 0 And b2 = 0) Then
MsgBox ("Это не прямая, A2 и B2 не должны равняться нулю одновременно, повторите ввод,")
GoTo 2
End If
If a1 * a2 + b1 * b2 = 0 Then
Picture1.Print ("Прямые перепендикулярны")
Else
u = Abs((Atn((a1 * b2 - a2 * b1) / (a1 * a2 + b1 * b2))) * 180 / pi)
Picture1.Print "Прямые не перепендикулярны, угол =", u
End If
End Sub