Sub フォームの表示位置1() 
    既存注文.StartUpPosition = 1
    既存注文.Show    
End Sub
-----------------------------------------
Sub フォームの表示位置2()
    既存注文.StartUpPosition = 0
    既存注文.Top = 100
    既存注文.Left = 100
    既存注文.Show     
End Sub