'by postapase
'http://novatocodegambas.blogspot.com.uy/

Private imagen As Image

Public Sub Form_Open()

  Me.Title = "Paint.Clip"
  RadioButton1_Click()

End

Public Sub dibuja()

  Paint.Begin(DrawingArea1)
  Paint.Arc(128.0, 128.0, 120)
  Paint.Clip
  Paint.Scale(256 / imagen.Width, 256 / imagen.Height)
  Paint.Brush = Paint.Image(imagen, 128, 128)
  Paint.Rectangle(0, 0, 4096, 4096)
  Paint.Translate(-128, -128)
  Paint.Fill 
  Paint.End

End

Public Sub btnExaminar_Click()

  Dialog.Path = User.Home
  Dialog.Filter = ["*.png;*.jpg;*.jpeg;*.bmp", "Picture files"]
 
  If Dialog.OpenFile() Then Return

  Select Case File.Ext(Dialog.Path)
    Case "png", "jpg", "jpeg", "bmp"
    Case Else
      Message.Error("Imagen no válida!")
      Return
  End Select

  imagen = Image.Load(Dialog.Path)
  dibuja()

End

Public Sub RadioButton1_Click()

  btnExaminar.Enabled = False
  imagen = Image.Load("clovis.jpg")
  dibuja()

End

Public Sub RadioButton2_Click()

  btnExaminar.Enabled = False
  imagen = Image.Load("julia-roberts.jpg")
  dibuja()

End

Public Sub RadioButton3_Click()

  btnExaminar.Enabled = False
  imagen = Image.Load("Jim_Carrey.png")
  dibuja()

End

Public Sub RadioButton4_Click()

  btnExaminar.Enabled = False
  imagen = Image.Load("russell-crowe.jpg")
  dibuja()

End

Public Sub RadioButton5_Click()

  btnExaminar.Enabled = True

End

Public Sub Button1_Click()

  Me.Close

End