新建From1（窗体），代码：

Private blnFirstRun As Boolean

Private Sub Form_Load()

End Sub

Private Sub Form_Resize()
    ' 首次运行时将窗体靠屏幕右边
    If blnFirstRun Then
        Me.Left = Screen.Width - Me.Width
        blnFirstRun = False
    End If
End Sub