Public Class frmBand
    Private Sub frmBand_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles MyBase.Resize
        Randomize()
        lblFavBand.Left = Me.ClientSize.Width - 166 'Label Width
        lblFavBand.Top = Me.ClientSize.Height - 46 'Label Height
    End Sub
    Private Sub pdxBastille_Click( sender As Object,  e As EventArgs) _
    Handles pdxBastille.Click
        pdxBastille.Left = Int(Rnd() * (Me.ClientSize.Width - 159)) 'Picture Width
        pdxBastille.Top = Int(Rnd() * (Me.ClientSize.Height - 102)) 'Picture Height
    End Sub
End Class