Private _startlocation As Drawing.Point 'Membervariable 
 
Public Property startlocation() As Drawing.Point
    Set(ByVal value As Drawing.Point)
        _startlocation = value
    End Set
    Get
       Return _startlocation
    End Get
End Property

Dim frm1 As New frm_Alarm
frm1.startlocation = New Point(50, 50) 'absolute Position 50/50
frm1.Show()
 
'Die nächste Instanz fragt die aktuelle Position von frm1 ab und
'setzt sich darüber (Offst: 30 Pixel) 
 
Dim frm2 As New frm_Alarm
frm2.startlocation = New Point(frm1.Location.X + 30, frm1.Location.Y + 30)
frm2.Show()