Private Sub Form_Load()

' minimum velocity for projectile

x = 11
y = 2.5

'
g = 10
'
T1 = (2 * y - x + Sqr((x - 2 * y) ^ 2 + 4 * x * (x + y))) / (2 * x)
T2 = (2 * y - x - Sqr((x - 2 * y) ^ 2 + 4 * x * (x + y))) / (2 * x)
'
v = Sqr(g * x ^ 2 * (1 + T1 ^ 2) / (2 * (x * T1 - y)))
'MsgBox Atn(T1) * 180 / (4 * Atn(1))
'MsgBox T2
MsgBox v
End Sub