Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim culture As New System.Globalization.CultureInfo("ja-JP", True)
culture.DateTimeFormat.Calendar = New System.Globalization.JapaneseCalendar()
Dim targetH As DateTime = New DateTime(2019, 4, 30)
Label1.Text = targetH.ToString("ggyy年MM月dd日", culture)
Dim targetR As DateTime = New DateTime(2019, 5, 1)
Label2.Text = targetR.ToString("ggyy年MM月dd日", culture)
End Sub
End Class