Rita och dra

Hej, jag har denna kod för att rita ut en rektangel på min picturebox:

BufferGrafik.DrawRectangle(Pens.Black, 20, 20, 100, 100)
RitaBild(picDesign.CreateGraphics())

Detta fungerar perfekt, men hur jag gör så att det som skapas blir ett objekt (om det behövs) så att när jag trycker ner vänster musknapp och drar följer den med?

ritabild:

Public Sub RitaBild(ByVal Grafik As Graphics)
    'Återrita buffern
    If Not (BufferBild Is Nothing) Then
        Grafik.DrawImage(BufferBild, 0, 0)
    End If
End Sub