Hola una forma raipida de hacer esto es con regiones sobre un picturebox
Option Explicit
Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Sub Form_Load()
CreateRoundPicture Picture1
End Sub
Public Function CreateRoundPicture(PicBox As PictureBox)
Dim hRgn As Long
Dim OldScale As Long
OldScale = PicBox.ScaleMode
PicBox.ScaleMode = vbPixels
hRgn = CreateRoundRectRgn(0, 0, PicBox.ScaleWidth, PicBox.ScaleHeight, 20, 20)
SetWindowRgn PicBox.hWnd, hRgn, True
PicBox.ScaleMode = OldScale
End Function

si lo notas asi la diferencia no es mucha pero bien, no esta trabajando con difuminación, si haces zoom ves que es otro el tipo de recorte

ya para hacer eso tendrias o que trabajar con GDI++ o bien trabajando el array de la imagen u otra chanchada que se me ocurre es crear cuatro iconos de 32bits (Esquinas) y lo repintas sobre el picturebox
Te sirve igual?
Saludos